#N canvas 749 434 450 285 10;
#X obj 14 -75 inlet;
#N canvas 0 0 450 300 list-drip 0;
#X obj 73 94 t a a;
#X obj 73 251 spigot;
#X obj 112 159 bang;
#X obj 112 178 1;
#X obj 233 159 route bang;
#X obj 193 160 bang;
#X obj 193 179 0;
#X obj 112 124 list split 2;
#X obj 242 389 list split;
#X obj 309 338 list length;
#X obj 309 360 >> 1;
#X obj 73 270 t a a a a;
#X obj 73 456 list split;
#X obj 140 408 list length;
#X obj 140 433 >> 1;
#X obj 41 29 inlet;
#X obj 300 185 outlet;
#X text 83 29 Copyright 2009 by Mathieu Bouchard;
#X obj 41 63 t b a;
#X obj 475 129 outlet;
#X text 530 131 signal end of list;
#X text 391 33 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 14 11 pd list-drip;
#X obj 14 -32 t a b b;
#X msg 76 81 add2 \$1;
#X msg 14 81 addcomma;
#X obj 14 54 t b f;
#X msg 293 61 addcomma;
#X obj 83 35 t b b;
#X obj 14 183 midiout;
#X msg 178 126 add2 247;
#X msg 364 61 set 240;
#X obj 394 -75 inlet;
#X msg 14 150;
#X text 268 179 by Georg Werner 2010;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 1 1 7 0;
#X connect 2 0 1 0;
#X connect 2 1 6 0;
#X connect 2 2 10 0;
#X connect 3 0 12 0;
#X connect 4 0 12 0;
#X connect 5 0 4 0;
#X connect 5 1 3 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 7 1 9 0;
#X connect 9 0 12 0;
#X connect 10 0 12 0;
#X connect 11 0 8 1;
#X connect 12 0 8 0;