#N canvas 0 0 450 300 10;
#X obj 30 37 inlet;
#X obj 30 203 outlet;
#X obj 139 37 inlet;
#N canvas 69 16 448 596 list-tuplet 0;
#X obj 19 10 inlet;
#X obj 235 393 outlet;
#X msg 46 74 0;
#X obj 227 109 list;
#X obj 76 124 inlet;
#X obj 19 42 t a b;
#X obj 46 102 s \$0init;
#X obj 282 380 s \$0loop;
#X obj 248 85 r \$0in;
#X obj 227 57 r \$0tap;
#N canvas 0 0 313 647 loop 0;
#X obj 128 345 + 1;
#X obj 99 630 spigot 1;
#X obj 99 288 t b b;
#X obj 99 263 del;
#X obj 83 46 t b b b;
#X obj 245 586 < 1;
#X obj 99 576 t b a;
#X obj 260 244 - 1;
#X obj 114 315 r \$0init;
#X obj 83 14 r \$0loop;
#X obj 99 664 s \$0loop;
#X obj 126 536 s \$0counter;
#X obj 164 664 s \$0tap;
#X obj 146 464 random;
#X obj 99 393 t a b;
#X obj 202 438 r \$0init;
#X obj 126 440 sel 0 1;
#X obj 122 96 sel 0;
#X obj 231 71 list length;
#X obj 231 44 r \$0in;
#X obj 212 144 f;
#X obj 99 345 f;
#X msg 45 154 stop;
#X obj 45 120 r \$0stop;
#X obj 149 18 r \$0sepNum;
#X obj 122 72 f;
#X text 197 115 steps number;
#X obj 160 144 + 1;
#X obj 161 205 r \$0ft1;
#X obj 247 185 r \$0bts;
#X obj 114 231 expr $f2/$f1*$f3;
#X obj 126 416 f;
#X obj 140 392 r \$0mode;
#X obj 126 491 f;
#X connect 0 0 21 1;
#X connect 0 0 33 1;
#X connect 1 0 10 0;
#X connect 1 0 12 0;
#X connect 2 0 21 0;
#X connect 3 0 2 0;
#X connect 4 1 3 0;
#X connect 4 2 25 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 6 1 5 0;
#X connect 7 0 5 1;
#X connect 7 0 13 1;
#X connect 8 0 21 1;
#X connect 9 0 4 0;
#X connect 13 0 11 0;
#X connect 14 0 6 0;
#X connect 14 1 31 0;
#X connect 15 0 13 1;
#X connect 15 0 11 0;
#X connect 16 0 33 0;
#X connect 16 1 13 0;
#X connect 17 0 20 0;
#X connect 17 1 27 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 7 0;
#X connect 20 0 30 0;
#X connect 21 0 0 0;
#X connect 21 0 14 0;
#X connect 22 0 3 0;
#X connect 23 0 22 0;
#X connect 24 0 25 1;
#X connect 25 0 17 0;
#X connect 27 0 7 0;
#X connect 27 0 30 0;
#X connect 28 0 30 1;
#X connect 29 0 30 2;
#X connect 30 0 3 1;
#X connect 31 0 16 0;
#X connect 32 0 31 1;
#X connect 33 0 11 0;
#X restore 131 90 pd loop;
#X obj 68 11 loadbang;
#X obj 68 35 s \$0-loadbang;
#N canvas 475 25 780 384 routing 0;
#X obj 185 14 inlet;
#X obj 558 140 list split 1;
#X obj 592 162 list split 1;
#X obj 626 184 list split 1;
#X obj 660 210 list split 1;
#X obj 635 307 s \$0in;
#X obj 581 308 s \$0tap;
#X obj 581 283 t b a;
#X obj 392 285 min 1;
#X obj 392 308 max 0;
#X obj 694 242 list split 1;
#X obj 187 283 sel 0;
#X msg 187 308 20;
#X obj 103 67 \$2;
#X obj 77 67 \$1;
#X obj 143 66 \$4;
#X obj 553 25 inlet;
#X obj 378 121 s \$0stop;
#X obj 8 22 r \$0loadbang;
#X obj 354 145 s \$0loadbang;
#X obj 238 98 s \$0separator;
#X obj 235 283 max 1;
#X obj 188 48 route ft1 beats separator mode reset stop nested;
#X obj 408 99 s \$0nested;
#X obj 9 318 symbol \$3;
#X obj 9 343 s \$0separator;
#X obj 27 294 s \$0nested;
#X obj 213 358 s \$0ft1;
#X obj 235 306 s \$0bts;
#X obj 392 336 s \$0mode;
#X obj 27 272 \$5;
#X connect 0 0 22 0;
#X connect 1 0 11 0;
#X connect 1 1 2 0;
#X connect 2 0 21 0;
#X connect 2 1 3 0;
#X connect 3 1 4 0;
#X connect 4 1 10 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 8 0 9 0;
#X connect 9 0 29 0;
#X connect 10 0 8 0;
#X connect 10 1 5 0;
#X connect 11 0 12 0;
#X connect 11 1 27 0;
#X connect 12 0 27 0;
#X connect 13 0 21 0;
#X connect 14 0 11 0;
#X connect 15 0 8 0;
#X connect 16 0 1 0;
#X connect 18 0 14 0;
#X connect 18 0 13 0;
#X connect 18 0 15 0;
#X connect 18 0 24 0;
#X connect 18 0 30 0;
#X connect 21 0 28 0;
#X connect 22 0 11 0;
#X connect 22 1 21 0;
#X connect 22 2 20 0;
#X connect 22 3 8 0;
#X connect 22 4 19 0;
#X connect 22 5 17 0;
#X connect 22 6 23 0;
#X connect 22 7 7 0;
#X connect 24 0 25 0;
#X connect 30 0 26 0;
#X restore 19 154 pd routing;
#X obj 40 332 list-find;
#X obj 91 246 r \$0separator;
#X obj 21 220 r \$0in;
#X obj 21 498 s \$0sepPos;
#X obj 92 355 s \$0sepNum;
#X obj 40 301 symbol;
#X obj 21 471 list;
#X obj 40 408 list prepend;
#X obj 135 408 t l;
#X obj 236 345 t a a;
#X text 262 12 list factory;
#X text 130 70 timing;
#X text 17 191 find separator indexes;
#X obj 21 247 t b b a;
#X obj 167 356 r \$0init;
#X obj 111 386 - 1;
#X obj 273 112 r \$0sepNum;
#N canvas 376 47 470 631 nested 0;
#X obj 20 8 inlet;
#X obj 152 84 r \$0counter;
#X obj 62 107 list split;
#X obj 131 27 r \$0sepPos;
#X obj 62 84 list prepend;
#X obj 21 31 t a a;
#X obj 48 54 list length;
#X obj 46 288 list split;
#X obj 21 185 list split;
#X obj 46 602 outlet;
#N canvas 0 0 450 300 demux 0;
#X obj 296 90 sel 0;
#X msg 296 113 0;
#X msg 325 113 1;
#X obj 227 177 route 0 1;
#X obj 220 67 inlet;
#X obj 229 216 outlet;
#X obj 278 215 outlet;
#X obj 290 65 inlet;
#X obj 227 150 list prepend 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 8 1;
#X connect 2 0 8 1;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 4 0 8 0;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X restore 46 344 pd demux;
#X obj 91 315 r \$0nested;
#X msg 93 567 ft1 400 \, beats 2 \, 1 2 3 4;
#X obj 136 538 list trim;
#X obj 143 427 /;
#X obj 232 359 r \$0sepNum;
#X obj 136 512 list prepend add2;
#X obj 177 360 r \$0ft1;
#X obj 139 399 f 20;
#X obj 232 394 + 1;
#X obj 263 392 r \$0bts;
#X obj 143 457 pack;
#X msg 143 483 set \, add2 ft1 \$1 \, addcomma \, add2 beats \$2 \,
addcomma;
#X obj 89 373 t b a b;
#X text 135 55 dummy value for having a pair;
#X obj 90 131 list split 1;
#X obj 49 210 t a b;
#X obj 101 255 -;
#X obj 97 224 f;
#X obj 97 193 t b a;
#X obj 143 191 list split 1;
#X obj 90 155 + 1;
#X connect 0 0 5 0;
#X connect 1 0 2 1;
#X connect 2 1 25 0;
#X connect 3 0 4 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 7 0 10 0;
#X connect 8 1 26 0;
#X connect 10 0 9 0;
#X connect 10 1 23 0;
#X connect 11 0 10 1;
#X connect 12 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 21 0;
#X connect 15 0 19 0;
#X connect 16 0 13 0;
#X connect 17 0 18 1;
#X connect 18 0 14 0;
#X connect 19 0 14 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 22 0 12 0;
#X connect 23 0 12 0;
#X connect 23 1 16 0;
#X connect 23 2 18 0;
#X connect 25 0 31 0;
#X connect 25 1 30 0;
#X connect 26 0 7 0;
#X connect 27 0 7 1;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 29 1 27 1;
#X connect 30 0 28 1;
#X connect 31 0 8 1;
#X connect 31 0 29 0;
#X restore 237 181 pd nested tuplets;
#X obj 227 280 list split;
#X obj 284 242 r \$0init;
#X obj 347 242 r \$0counter;
#X obj 255 320 list split 1;
#X obj 57 441 r \$0init;
#N canvas 0 0 450 300 demux 0;
#X obj 296 90 sel 0;
#X msg 296 113 0;
#X msg 325 113 1;
#X obj 227 177 route 0 1;
#X obj 220 67 inlet;
#X obj 229 216 outlet;
#X obj 278 215 outlet;
#X obj 290 65 inlet;
#X obj 227 150 list prepend 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 8 1;
#X connect 2 0 8 1;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 4 0 8 0;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X restore 227 148 pd demux;
#X connect 0 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 37 0;
#X connect 4 0 13 1;
#X connect 5 0 13 0;
#X connect 5 1 2 0;
#X connect 8 0 3 1;
#X connect 9 0 3 0;
#X connect 11 0 12 0;
#X connect 14 0 21 0;
#X connect 14 1 18 0;
#X connect 15 0 19 0;
#X connect 16 0 27 0;
#X connect 19 0 14 0;
#X connect 20 0 17 0;
#X connect 21 0 22 0;
#X connect 21 0 20 1;
#X connect 22 0 21 1;
#X connect 23 0 1 0;
#X connect 23 1 7 0;
#X connect 27 0 20 0;
#X connect 27 1 19 0;
#X connect 27 2 14 1;
#X connect 28 0 29 0;
#X connect 29 0 21 1;
#X connect 30 0 37 1;
#X connect 31 0 23 0;
#X connect 32 1 35 0;
#X connect 33 0 32 1;
#X connect 34 0 32 1;
#X connect 35 0 23 0;
#X connect 36 0 20 1;
#X connect 37 0 32 0;
#X connect 37 1 31 0;
#X restore 30 90 pd list-tuplet;
#X text 234 34 arg1 time;
#X text 233 58 arg2 beats playing taps;
#X text 234 82 arg3 symbol of separator;
#X text 234 107 arg4 read mode 0:normal 1:random;
#X text 234 133 arg5 nested 0:normal 1:nested;
#X text 92 201 list-tuplet methods <time (f)> <beats (f)> <separator
(s)> <mode (f) > <nested (f)>;
#X text 35 244 patko 2010;
#X connect 0 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 1 0;