#N canvas 124 170 624 409 10;
#X obj 41 219 f;
#X obj 22 347 outlet;
#X msg 151 245 obj 0 0 tag-pointer \$1 \$2;
#X obj 151 220 list prepend \$1;
#X obj 167 12 inlet;
#X obj 193 141 + 1;
#X msg 509 102 clear;
#X obj 508 74 loadbang;
#X msg 167 95 0;
#X obj 167 38 route clear;
#X obj 193 175 s \$1.tag-pointers-size;
#X obj 151 271 s pd-\$1.tag-pointers-data;
#X obj 183 115 r \$1.tag-pointers-size;
#X obj 41 315 send \$1-set-tag-pointer;
#X obj 41 290 pack 0 p;
#X obj 22 106 t p b p b;
#X obj 151 141 f;
#X text 305 33 based on a patch and idea by pierre cage;
#X connect 0 0 14 0;
#X connect 2 0 11 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 8 0 16 1;
#X connect 9 0 8 0;
#X connect 9 0 6 0;
#X connect 9 1 15 0;
#X connect 12 0 16 1;
#X connect 14 0 13 0;
#X connect 15 0 1 0;
#X connect 15 1 0 0;
#X connect 15 2 14 1;
#X connect 15 3 16 0;
#X connect 16 0 5 0;
#X connect 16 0 3 0;
#X connect 16 0 0 1;
