#N canvas 631 361 591 470 10;
#X obj 26 -25 inlet;
#X obj 26 296 outlet;
#N canvas 658 194 260 268 \$0-gap-loop 0;
#X obj 96 66 / 2;
#X obj 96 89 int;
#X obj 34 122 until;
#X obj 34 49 t b f;
#X obj 148 105 sel 0;
#X obj 96 142 t f f;
#X obj 59 159 f;
#X obj 34 26 inlet;
#X obj 59 183 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 0 0;
#X connect 4 0 2 1;
#X connect 5 0 6 1;
#X connect 5 1 4 0;
#X connect 6 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X restore 95 150 pd \$0-gap-loop;
#X obj 49 65 list-len;
#N canvas 584 66 450 300 \$0-increment-loop 0;
#X obj 40 26 inlet;
#X obj 163 27 inlet;
#X obj 40 83 until;
#X obj 40 53 t b f;
#X obj 99 100 f;
#X obj 130 101 + 1;
#X obj 136 157 moses;
#X obj 214 175 t b;
#X obj 136 193 outlet;
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 2 1;
#X restore 95 195 pd \$0-increment-loop;
#X obj 95 125 t f f;
#X obj 95 173 t f f;
#N canvas 147 172 708 735 \$0-test-swap-loop 0;
#X obj 102 40 inlet;
#X obj 319 46 inlet;
#X obj 102 63 -;
#X obj 101 444 list-idx;
#X obj 162 444 list-idx;
#X obj 304 124 +;
#X obj 101 494 >;
#X obj 101 518 sel 0 1;
#X obj 332 564 f;
#X obj 365 564 f;
#X obj 297 593 list-swap;
#X obj 297 563 list;
#X obj 427 646 list;
#X obj 102 159 until;
#X obj 164 222 moses 0;
#X obj 164 197 f;
#X obj 197 197 -;
#X obj 102 84 t b f;
#X obj 164 265 t b b;
#X obj 191 287 s \$0-stop-loop;
#X obj 165 126 r \$0-stop-loop;
#X obj 164 307 s \$0-bang-list;
#X obj 101 582 t b b;
#X obj 128 604 s \$0-stop-loop;
#X obj 101 625 s \$0-bang-list;
#X obj 427 576 r \$0-bang-list;
#X obj 427 669 outlet;
#X obj 277 499 t b b;
#X obj 102 180 t b b;
#X obj 102 381 list;
#X obj 102 400 t a a;
#X obj 448 599 r \$0-list-init;
#X obj 318 474 r \$0-list-init;
#X obj 123 331 r \$0-list-init;
#X text 316 25 gap;
#X obj 203 244 s \$0-idx;
#X obj 331 85 r \$0-idx;
#X obj 347 498 r \$0-idx;
#X obj 146 382 r \$0-idx;
#X obj 304 145 s \$0-idx+gap;
#X obj 380 531 r \$0-idx+gap;
#X obj 207 407 r \$0-idx+gap;
#X obj 466 620 r \$0-list-swap;
#X obj 297 621 s \$0-list-swap;
#X obj 137 355 r \$0-list-swap;
#N canvas 468 185 584 529 swap? 0;
#X obj 40 52 inlet;
#X obj 153 52 inlet;
#X obj 361 50 inlet;
#X obj 40 272 spigot 1;
#X obj 256 272 spigot;
#X obj 361 224 unpack 0 0;
#X msg 361 178 1 0;
#X msg 412 196 0 1;
#X obj 463 93 select 0;
#X obj 361 71 select asc desc;
#X obj 40 437 outlet;
#X obj 153 437 outlet;
#X obj 256 300 swap;
#X obj 153 271 spigot 1;
#X obj 317 273 spigot;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 13 0;
#X connect 1 0 14 0;
#X connect 2 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 12 0;
#X connect 5 0 3 1;
#X connect 5 0 13 1;
#X connect 5 1 4 1;
#X connect 5 1 14 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 11 0;
#X connect 14 0 12 1;
#X restore 101 471 pd swap?;
#X obj 164 470 r \$0-direction;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 1 0 5 1;
#X connect 1 0 16 1;
#X connect 2 0 17 0;
#X connect 3 0 45 0;
#X connect 4 0 45 1;
#X connect 5 0 39 0;
#X connect 6 0 7 0;
#X connect 7 0 22 0;
#X connect 7 1 27 0;
#X connect 7 2 22 0;
#X connect 8 0 10 1;
#X connect 9 0 10 2;
#X connect 10 0 11 1;
#X connect 10 0 43 0;
#X connect 11 0 10 0;
#X connect 12 0 26 0;
#X connect 13 0 28 0;
#X connect 14 0 18 0;
#X connect 14 1 35 0;
#X connect 15 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 15 1;
#X connect 17 0 13 0;
#X connect 17 1 15 1;
#X connect 18 0 21 0;
#X connect 18 1 19 0;
#X connect 20 0 13 1;
#X connect 22 0 24 0;
#X connect 22 1 23 0;
#X connect 25 0 12 0;
#X connect 27 0 11 0;
#X connect 27 1 9 0;
#X connect 27 1 8 0;
#X connect 28 0 29 0;
#X connect 28 1 15 0;
#X connect 29 0 30 0;
#X connect 30 0 3 0;
#X connect 30 1 4 0;
#X connect 31 0 12 1;
#X connect 32 0 11 1;
#X connect 33 0 29 1;
#X connect 36 0 5 0;
#X connect 37 0 8 1;
#X connect 38 0 3 1;
#X connect 40 0 9 1;
#X connect 41 0 4 1;
#X connect 42 0 12 1;
#X connect 44 0 29 1;
#X connect 45 0 6 0;
#X connect 45 1 6 1;
#X connect 46 0 45 2;
#X restore 95 221 pd \$0-test-swap-loop;
#X obj 26 274 list;
#X obj 49 103 sel 0 1;
#X obj 72 43 s \$0-list-init;
#X obj 99 242 r \$0-list-init;
#X obj 26 22 t b a a;
#X obj 26 -1 list-filter;
#N canvas 0 0 677 293 \$0-checknum 0;
#X obj 131 95 route float;
#X msg 131 116 1;
#X obj 205 149 print;
#X msg 205 119 list-sort: Warning: dropped a non-number from list;
#X obj 131 70 inlet;
#X obj 131 149 outlet;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X restore 115 -1 pd \$0-checknum;
#X text 46 343 2008 Matt Barber;
#X obj 452 140 loadbang;
#X obj 387 52 inlet;
#X obj 387 201 list append \$1;
#X obj 387 171 t b a;
#X obj 387 229 s \$0-direction;
#X connect 0 0 13 0;
#X connect 2 0 6 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 5 1 4 1;
#X connect 6 0 4 0;
#X connect 6 1 7 1;
#X connect 7 0 8 1;
#X connect 8 0 1 0;
#X connect 9 2 5 0;
#X connect 11 0 8 1;
#X connect 12 0 8 0;
#X connect 12 1 3 0;
#X connect 12 2 10 0;
#X connect 13 0 12 0;
#X connect 13 1 14 0;
#X connect 14 0 13 1;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 19 1 18 1;