#N canvas 827 239 734 565 12;
#N canvas 0 0 450 250 (subpatch) 0;
#X array strings 8 float 2;
#X coords 0 127 8 0 200 140 1;
#X restore 435 73 graph;
#X msg 57 62 66 64 2;
#X obj 57 113 unpack f f f;
#X obj 57 219 t f f;
#X msg 167 273 \$1 0;
#X obj 167 219 tabread strings;
#X obj 280 219 tabwrite strings;
#X msg 280 182 0 \$1;
#X text 245 243 retrieve note for channel \; note off \; clear note num from array;
#X obj 111 152 t f f f f;
#X obj 158 431 pack f f, f 11;
#X obj 158 457 tabwrite strings;
#X text 271 456 save note number for string index;
#X obj 57 466 pack f f f;
#X obj 57 492 print noteout;
#X msg 138 62 67 64 2;
#X msg 215 62 67 0 2;
#X obj 93 219 t f f;
#X obj 158 402 spigot;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 17 0;
#X connect 2 2 9 0;
#X connect 3 0 13 0;
#X connect 3 1 18 0;
#X connect 4 0 13 0;
#X connect 5 0 4 0;
#X connect 7 0 6 0;
#X connect 9 0 10 1;
#X connect 9 1 7 0;
#X connect 9 2 5 0;
#X connect 9 3 13 2;
#X connect 10 0 11 0;
#X connect 13 0 14 0;
#X connect 15 0 2 0;
#X connect 16 0 2 0;
#X connect 17 0 13 1;
#X connect 17 1 18 1;
#X connect 18 0 10 0;