1 files changed, 105 insertions, 0 deletions
diff --git a/sfruit/countseq.pd b/sfruit/countseq.pd
new file mode 100644
index 0000000..b5d32b5
--- /dev/null
+++ b/sfruit/countseq.pd
@@ -0,0 +1,105 @@
+#N canvas 974 303 373 390 10;
+#X declare -lib list-abs -lib iemlib;
+#X obj 26 159 f;
+#X obj 81 83 sel restart;
+#X msg 81 108 0;
+#X obj 112 108 t b;
+#X obj 28 10 inlet;
+#X obj 163 40 inlet;
+#X obj 130 159 mod \$1;
+#X obj 232 147 dollarg;
+#X obj 232 124 loadbang;
+#X obj 232 171 list split 1;
+#X obj 88 285 list-find;
+#N canvas 712 115 568 364 split-symbols 0;
+#X obj 160 159 route symbol float;
+#X obj 84 159 list-filter;
+#X obj 84 53 inlet;
+#X obj 84 77 t a a;
+#X msg 160 182 0;
+#X msg 265 184 0;
+#X msg 212 183 1;
+#X obj 383 158 route symbol float;
+#X obj 307 158 list-filter;
+#X msg 488 183 0;
+#X msg 383 181 1;
+#X msg 435 182 0;
+#X obj 307 288 outlet;
+#X obj 84 249 outlet;
+#X obj 307 252 list-map;
+#X obj 384 233 s2l-explode;
+#X obj 384 253 list split 1;
+#X obj 418 274 list-l2s;
+#X obj 418 295 atoi;
+#X text 349 312 remove leading "accent" identifier;
+#X connect 0 0 4 0;
+#X connect 0 1 6 0;
+#X connect 0 2 5 0;
+#X connect 1 0 13 0;
+#X connect 1 1 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 3 1 8 0;
+#X connect 4 0 1 1;
+#X connect 5 0 1 1;
+#X connect 6 0 1 1;
+#X connect 7 0 10 0;
+#X connect 7 1 11 0;
+#X connect 7 2 9 0;
+#X connect 8 0 14 0;
+#X connect 8 1 7 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 1;
+#X connect 11 0 8 1;
+#X connect 14 0 12 0;
+#X connect 14 1 15 0;
+#X connect 15 0 16 0;
+#X connect 16 1 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 14 1;
+#X restore 208 199 pd split-symbols;
+#X obj 159 285 list-find;
+#X obj 26 194 t a a a;
+#X obj 26 312 sel 0;
+#X obj 26 354 outlet;
+#X obj 88 354 outlet;
+#X obj 159 354 outlet;
+#X obj 208 40 inlet;
+#X obj 58 159 + 1;
+#X obj 282 331 + 1;
+#X obj 282 354 outlet;
+#X obj 210 255 list-apply - 1;
+#X obj 139 228 list-apply - 1;
+#X obj 80 63 list;
+#X obj 28 32 route bang seek;
+#X obj 180 9 import list-abs iemlib;
+#X connect 0 0 13 0;
+#X connect 0 0 19 0;
+#X connect 0 0 20 0;
+#X connect 1 0 2 0;
+#X connect 1 1 3 0;
+#X connect 2 0 0 1;
+#X connect 3 0 0 0;
+#X connect 4 0 25 0;
+#X connect 5 0 6 1;
+#X connect 6 0 0 1;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 9 1 11 0;
+#X connect 10 0 16 0;
+#X connect 11 0 23 0;
+#X connect 11 1 22 0;
+#X connect 12 0 17 0;
+#X connect 13 0 14 0;
+#X connect 13 1 10 0;
+#X connect 13 2 12 0;
+#X connect 14 0 15 0;
+#X connect 18 0 11 0;
+#X connect 19 0 6 0;
+#X connect 20 0 21 0;
+#X connect 22 0 12 1;
+#X connect 23 0 10 1;
+#X connect 24 0 1 0;
+#X connect 25 0 0 0;
+#X connect 25 1 0 1;
+#X connect 25 2 24 0;