#N canvas 196 168 450 310 10; #X obj 37 218 list trim; #X obj 56 80 until; #X obj 56 103 f; #X obj 86 103 + 1; #X msg 99 80 0; #X obj 37 172 list store; #X obj 37 195 list prepend msg 10 10 set; #X msg 136 80 clear; #X msg 56 149 append \$1; #X obj 56 126 makefilename $%d; #X floatatom 37 35 5 0 0 0 - - -; #X obj 37 57 t b f b; #N canvas 660 170 450 300 \$0-sub 1; #X msg 10 10 set \$0 \$1 \$2 \$3 \$4 \$5; #X restore 127 34 pd \$0-sub; #X obj 136 103 s pd-\$0-sub; #X obj 37 241 s pd-\$0-sub; #X connect 0 0 14 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 2 0 9 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 13 0; #X connect 8 0 5 0; #X connect 9 0 8 0; #X connect 10 0 11 0; #X connect 11 0 5 0; #X connect 11 1 1 0; #X connect 11 2 4 0; #X connect 11 2 5 1; #X connect 11 2 7 0;