#N canvas 0 0 525 474 10;
#X obj 20 39 inlet;
#X obj 20 80 t b b b b b f;
#X obj 20 395 outlet;
#X obj 253 43 inlet;
#X obj 164 269 inlet;
#X obj 109 269 inlet;
#X obj 219 269 - 1;
#X text 136 433 1995 by Karlheinz Essl;
#X obj 54 140 int \$3;
#X obj 20 367 list;
#X obj 54 344 list prepend;
#X obj 144 344 t a;
#X obj 54 165 t a a;
#X obj 54 205 until;
#X obj 54 237 f;
#X obj 89 237 + 1;
#X msg 100 206 0;
#X obj 54 309 trans \$1 \$2 \$3 \$4;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 2 8 0;
#X connect 1 3 10 1;
#X connect 1 4 16 0;
#X connect 1 5 17 4;
#X connect 3 0 8 0;
#X connect 4 0 17 2;
#X connect 5 0 17 1;
#X connect 6 0 17 3;
#X connect 8 0 12 0;
#X connect 9 0 2 0;
#X connect 10 0 9 1;
#X connect 10 0 11 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 12 1 6 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 17 0 10 0;
