#N canvas 0 0 489 557 10;
#X obj 31 12 inlet;
#X obj 54 525 outlet;
#X obj 75 256 spigot;
#X obj 86 69 t a b;
#X obj 58 96 t a b;
#X obj 151 12 gf/selector;
#X obj 151 31 gf/error no method for '%s';
#X obj 54 436 t a a;
#X obj 90 436 list length;
#X obj 90 455 / 2;
#X obj 31 31 route PA PD PU bang;
#X obj 114 50 s \$0-done;
#X msg 122 69 0;
#X msg 94 96 1;
#X obj 57 377 r \$0-done;
#X obj 31 129 t a a;
#X obj 67 129 list length;
#X obj 67 148 / 2;
#X obj 31 199 #redim ();
#X msg 67 167 \$1 2;
#X obj 31 218 #import (2);
#X text 91 199 ensure no odd size;
#X obj 31 237 #to_list;
#X obj 31 256 t a a;
#X obj 32 301 #join;
#X text 66 301 store previous;
#N canvas 0 0 450 300 bigmess 0;
#X obj 16 12 inlet;
#X obj 16 31 outlet;
#X msg 58 12;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 54 417 pd bigmess;
#X obj 32 339 #to_list;
#X obj 54 506 #redim ();
#X msg 90 474 \$1 2;
#X msg 32 358 add2 \$2 \$1 \$4 \$3;
#X msg 57 396 bang \, set;
#X obj 32 320 # * (1 -1);
#X connect 0 0 10 0;
#X connect 2 0 24 0;
#X connect 3 0 15 0;
#X connect 3 1 12 0;
#X connect 4 0 15 0;
#X connect 4 1 13 0;
#X connect 5 0 6 0;
#X connect 7 0 28 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 9 0 29 0;
#X connect 10 0 15 0;
#X connect 10 1 4 0;
#X connect 10 2 3 0;
#X connect 10 3 11 0;
#X connect 10 4 5 0;
#X connect 12 0 2 1;
#X connect 13 0 2 1;
#X connect 14 0 31 0;
#X connect 15 0 18 0;
#X connect 15 1 16 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 1;
#X connect 20 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 24 1;
#X connect 23 1 2 0;
#X connect 24 0 32 0;
#X connect 26 0 7 0;
#X connect 27 0 30 0;
#X connect 28 0 1 0;
#X connect 29 0 28 1;
#X connect 30 0 26 0;
#X connect 31 0 26 0;
#X connect 32 0 27 0;