chose/extra/list-abs/list-swap.pd

#N canvas 401 249 706 675 10;
#X obj 32 27 inlet;
#X obj 98 546 outlet;
#X obj 217 48 inlet;
#X obj 355 59 inlet;
#X obj 260 429 list-replace;
#X obj 113 400 list-idx;
#X obj 260 385 list-idx;
#X obj 196 101 f \$1;
#X obj 334 105 f \$2;
#X obj 113 446 list-replace;
#X obj 224 126 s \$0-idx-1;
#X obj 358 165 s \$0-idx-2;
#X obj 275 323 r \$0-idx-1;
#X obj 158 333 r \$0-idx-2;
#N canvas 229 564 450 300 \$0-test-range 0;
#X obj 46 38 inlet;
#X obj 181 48 inlet;
#X obj 307 44 inlet;
#X obj 46 69 list-len;
#X obj 185 119 abs;
#X obj 323 121 abs;
#X obj 185 95 moses 0;
#X obj 323 96 moses 0;
#X obj 224 119 + 1;
#X obj 362 121 + 1;
#X obj 76 118 t f f;
#X obj 231 217 &&;
#X obj 326 171 >=;
#X obj 183 175 >=;
#X obj 235 252 outlet;
#X connect 0 0 3 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 10 0;
#X connect 4 0 13 1;
#X connect 5 0 12 1;
#X connect 6 0 4 0;
#X connect 6 1 8 0;
#X connect 7 0 5 0;
#X connect 7 1 9 0;
#X connect 8 0 13 1;
#X connect 9 0 12 1;
#X connect 10 0 13 0;
#X connect 10 1 12 0;
#X connect 11 0 14 0;
#X connect 12 0 11 1;
#X connect 13 0 11 0;
#X restore 150 170 pd \$0-test-range;
#X obj 85 228 == 0;
#X obj 52 253 spigot;
#X obj 159 227 spigot;
#X obj 32 49 t a a b;
#X obj 162 250 t a a a;
#X connect 0 0 18 0;
#X connect 2 0 7 1;
#X connect 3 0 8 1;
#X connect 4 0 9 2;
#X connect 5 0 9 0;
#X connect 6 0 4 0;
#X connect 7 0 14 1;
#X connect 7 0 10 0;
#X connect 8 0 14 2;
#X connect 8 0 11 0;
#X connect 9 0 1 0;
#X connect 12 0 6 1;
#X connect 12 0 9 1;
#X connect 13 0 5 1;
#X connect 13 0 4 1;
#X connect 14 0 15 0;
#X connect 14 0 17 1;
#X connect 15 0 16 1;
#X connect 16 0 1 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 18 0 16 0;
#X connect 18 1 14 0;
#X connect 18 2 8 0;
#X connect 18 2 7 0;
#X connect 19 0 5 0;
#X connect 19 1 6 0;
#X connect 19 2 4 2;