#N canvas 300 114 552 494 10;
#X obj 117 -60 inlet;
#X obj 200 90 s \$2;
#X obj 171 -6 arraysize \$1;
#X msg 200 65 resize \$1;
#X obj 117 199 f 0;
#X obj 146 199 + 1;
#X obj 117 117 until;
#X obj 195 294 f 0;
#X obj 224 294 + 1;
#X obj 116 389 tabwrite \$2;
#X obj 117 225 tabread \$1;
#X obj 117 138 t b b;
#X obj 19 389 outlet written;
#X obj 117 253 t f b b;
#X obj 265 261 + 1;
#X obj 117 66 f;
#X obj 264 -7 arraysize \$2;
#X obj 117 -35 t b b b;
#X obj 200 31 +;
#X msg 166 164 0;
#X obj 117 91 t f b;
#X obj 197 389 outlet newsize;
#X obj 19 286 + 1;
#X obj 298 390 outlet starindex;
#X obj 416 340 ==;
#X obj 416 364 sel 1;
#X obj 416 389 outlet done;
#X text 155 -61 bang to start;
#X text 345 22 [arrayappend source target];
#X text 321 41 resize target array and then append \; source contents
;
#X connect 0 0 17 0;
#X connect 2 0 15 1;
#X connect 2 0 18 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 4 0 22 0;
#X connect 5 0 4 1;
#X connect 6 0 11 0;
#X connect 7 0 8 0;
#X connect 7 0 9 1;
#X connect 7 0 21 0;
#X connect 7 0 24 0;
#X connect 8 0 7 1;
#X connect 10 0 13 0;
#X connect 11 0 4 0;
#X connect 13 0 9 0;
#X connect 13 1 7 0;
#X connect 14 0 7 1;
#X connect 14 0 23 0;
#X connect 15 0 20 0;
#X connect 16 0 14 0;
#X connect 16 0 18 1;
#X connect 17 0 15 0;
#X connect 17 1 2 0;
#X connect 17 2 16 0;
#X connect 18 0 3 0;
#X connect 18 0 24 1;
#X connect 19 0 4 1;
#X connect 20 0 6 0;
#X connect 20 1 19 0;
#X connect 22 0 12 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;