#N canvas 344 192 575 509 10;
#X obj 126 388 outlet;
#X obj 70 33 inlet;
#X obj 157 196 r \$1.tag-pointers-size;
#X obj 297 286 b;
#X obj 297 392 outlet;
#X obj 166 119 + 1;
#X msg 70 75 0;
#X obj 70 54 route rewind next;
#X obj 126 353 r \$0.tag-pointer;
#X obj 127 326 send \$1-get-tag-pointer;
#X obj 127 300 pack 0 \$0;
#X obj 127 119 f;
#X obj 127 222 moses;
#X text 238 87 based on a patch and idea by pierre cage;
#X connect 1 0 7 0;
#X connect 2 0 12 1;
#X connect 3 0 4 0;
#X connect 5 0 11 1;
#X connect 6 0 11 1;
#X connect 7 0 6 0;
#X connect 7 1 11 0;
#X connect 7 2 11 0;
#X connect 8 0 0 0;
#X connect 10 0 9 0;
#X connect 11 0 5 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 12 1 3 0;
