#N canvas 601 50 537 751 10; #X text 397 560 check pattern; #X obj 142 271 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 73 611 spigot; #X obj 73 365 list prepend; #X obj 73 180 t a a; #X obj 106 522 unpack f f f f f f f; #X obj 106 560 expr if ($f1==104 && $f4==44 && $f7==102 \, 1 \, 0) ; #X msg 112 477 0 0 0 0 0 0 0; #X obj 142 325 t b b; #X msg 73 11 104 \, 54 \, 50 \, 44 \, 53 \, 54 \, 102 \, 104 \, 51 \, 52 \, 44 \, 53 \, 52 \, 102 \, 104 \, 50 \, 50 \, 44 \, 55 \, 56 \, 102; #X msg 153 51 101 \, 54 \, 50 \, 44 \, 53 \, 54 \, 102 \, 104 \, 51 \, 52 \, 44 \, 53 \, 52 \, 102 \, 104 \, 50 \, 50 \, 44 \, 55 \, 56 \, 102; #X obj 142 197 sel 104; #X obj 73 407 list split 7; #X obj 73 300 spigot; #X msg 73 647 \$2 \$3 \$5 \$6; #X msg 73 678 \$1 \$2 \$3 \$4; #X msg 153 101 104 \, 54 \, 104 \, 44 \, 102 \, 54 \, 102 \, 104 \, 51 \, 52 \, 44 \, 53 \, 52 \, 102 \, 104 \, 44 \, 50 \, 44 \, 102 \, 44 \, 102; #X obj 73 442 t l l b; #X obj 176 407 t l; #X msg 169 283 1; #N canvas 0 50 450 300 once 0; #X obj 89 162 spigot; #X obj 34 59 inlet; #X obj 89 111 t a b; #X obj 126 140 f 1; #X obj 89 194 t a b; #X obj 119 216 f 0; #X obj 89 247 outlet; #X obj 207 56 inlet; #X obj 207 79 bang; #X obj 207 102 f 1; #X text 8 6 once; #X text 64 7 only the first message passes through; #X text 29 37 message in; #X text 29 289 message out (only once); #X text 203 36 anything to init once; #X obj 34 80 route bang; #X obj 34 110 t b b; #X obj 34 162 spigot; #X obj 34 194 t b b; #X text 96 375 IEM KUG; #X text 80 363 musil; #X text 110 363 @; #X text 116 363 iem.at; #X text 31 352 (c) Thomas Musil 2000 - 2005; #X text 79 385 Graz \, Austria; #X text 102 336 @; #X text 108 336 iem.at; #X text 30 336 (c) zmoelnig; #X connect 0 0 4 0; #X connect 1 0 15 0; #X connect 2 0 0 0; #X connect 2 1 3 0; #X connect 3 0 0 1; #X connect 3 0 17 1; #X connect 4 0 6 0; #X connect 4 1 5 0; #X connect 5 0 3 1; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 3 1; #X connect 15 0 16 0; #X connect 15 1 2 0; #X connect 16 0 17 0; #X connect 16 1 3 0; #X connect 17 0 18 0; #X connect 18 0 6 0; #X connect 18 1 5 0; #X restore 142 232 pd once; #X obj 133 611 s \$0-again; #X obj 106 586 t f f; #X obj 210 215 r \$0-again; #X msg 153 150 104 \, 44 \, 44 \, 44 \, 44; #X obj 301 311 r \$0-list; #X obj 73 710 s \$0-list; #X obj 301 340 t l l; #X obj 301 407 spigot; #X obj 301 441 print my-list; #N canvas 0 50 450 300 list-change 0; #X obj 106 62 t l l b; #X obj 179 94 list; #X obj 106 94 list; #X obj 56 180 expr if ($f1==$f5 && $f2==$f6 && $f3==$f7 && $f4==$f8 \, 0 \, 1); #X obj 86 131 unpack f f f f; #X obj 266 131 unpack f f f f; #X obj 106 29 inlet; #X obj 103 239 outlet; #X connect 0 0 1 1; #X connect 0 1 2 0; #X connect 0 2 1 0; #X connect 1 0 5 0; #X connect 2 0 4 0; #X connect 3 0 7 0; #X connect 4 0 3 0; #X connect 4 1 3 1; #X connect 4 2 3 2; #X connect 4 3 3 3; #X connect 5 0 3 4; #X connect 5 1 3 5; #X connect 5 2 3 6; #X connect 5 3 3 7; #X connect 6 0 0 0; #X restore 328 377 pd list-change; #X connect 1 0 8 0; #X connect 2 0 14 0; #X connect 3 0 12 0; #X connect 3 0 18 0; #X connect 4 0 13 0; #X connect 4 1 11 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 5 2 6 2; #X connect 5 3 6 3; #X connect 5 4 6 4; #X connect 5 5 6 5; #X connect 5 6 6 6; #X connect 6 0 22 0; #X connect 7 0 5 0; #X connect 8 0 3 1; #X connect 8 1 19 0; #X connect 9 0 4 0; #X connect 10 0 4 0; #X connect 11 0 20 0; #X connect 12 0 17 0; #X connect 13 0 3 0; #X connect 14 0 15 0; #X connect 15 0 26 0; #X connect 16 0 4 0; #X connect 17 0 2 0; #X connect 17 1 5 0; #X connect 17 2 7 0; #X connect 18 0 3 1; #X connect 19 0 13 1; #X connect 20 0 1 0; #X connect 22 0 2 1; #X connect 22 1 21 0; #X connect 23 0 20 1; #X connect 24 0 4 0; #X connect 25 0 27 0; #X connect 27 0 28 0; #X connect 27 1 30 0; #X connect 28 0 29 0; #X connect 30 0 28 1;