#N canvas 540 170 450 381 10; #X msg 51 38 0 1 1 0 0 0 1; #X obj 98 84 list length; #X msg 98 107 resize \$1; #X obj 98 130 array define \$0-list; #X obj 82 153 array set \$0-list; #X obj 66 176 until; #X obj 66 199 f; #X obj 66 222 array max \$0-list; #X obj 51 61 t b b l l b; #X msg 198 268 append \$1; #X obj 51 291 list store; #X obj 51 314 print; #X obj 165 245 sel -1; #X obj 95 199 + 1; #X connect 0 0 8 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 1 12 0; #X connect 8 0 10 0; #X connect 8 1 5 0; #X connect 8 2 4 0; #X connect 8 3 1 0; #X connect 8 4 10 1; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 12 0 5 1; #X connect 12 1 9 0; #X connect 12 1 13 0; #X connect 13 0 6 1;