#N canvas 563 234 607 600 10;
#X obj 425 146 symbol \$1;
#X obj 425 213 t f;
#X obj 425 192 unpack 0;
#X obj 425 119 loadbang;
#X obj 342 287 - 1;
#X obj 342 307 mod 32;
#X obj 342 327 + 1;
#X obj 409 417 r \$0-current;
#X obj 358 243 f 1;
#X obj 342 264 +;
#X obj 393 444 f;
#X obj 307 187 r \$2-shifter;
#X msg 328 497 \; \$2 \$3;
#X obj 328 474 pack s s 0;
#X obj 303 429 symbol \$1;
#X obj 307 219 t b f b;
#X obj 393 387 r \$2-prepare-shift;
#X obj 43 44 inlet;
#X obj 51 175 outlet;
#X obj 342 349 makefilename \$2-s%d;
#X obj 425 169 symbol2list /s;
#X obj 48 120 commun \$1 \$2;
#X obj 103 60 s \$0-current;
#X connect 0 0 20 0;
#X connect 1 0 8 1;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 19 0;
#X connect 7 0 10 1;
#X connect 8 0 9 1;
#X connect 9 0 4 0;
#X connect 10 0 13 2;
#X connect 11 0 15 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 15 1 9 0;
#X connect 15 2 8 0;
#X connect 16 0 10 0;
#X connect 17 0 21 0;
#X connect 17 0 22 0;
#X connect 19 0 13 1;
#X connect 20 0 2 0;
#X connect 21 0 18 0;