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

#N canvas 313 86 599 614 10;
#X obj 94 50 inlet;
#X obj 259 133 inlet;
#X obj 308 134 inlet;
#X text 257 112 pos;
#X text 306 113 list;
#X obj 173 180 list;
#X obj 94 528 outlet;
#X obj 94 308 list;
#X obj 94 250 list prepend;
#X text 91 29 list to insert;
#X obj 173 206 list-splat \$1;
#X obj 371 246 > 0;
#X obj 292 337 route 0 1;
#X obj 292 316 list prepend;
#X obj 292 371 list prepend;
#X obj 393 370 list;
#X obj 94 75 t a b b a;
#X obj 152 100 s \$0-insert;
#X obj 416 338 r \$0-insert;
#X obj 149 122 s \$0-init;
#X obj 190 250 r \$0-init;
#X obj 322 290 s \$0-out-of-range;
#X obj 145 350 r \$0-out-of-range;
#X obj 292 243 t a b;
#X obj 94 374 spigot 1;
#X obj 397 157 s \$0-out-of-range;
#X obj 397 108 r \$0-init;
#X obj 397 130 1;
#X obj 322 266 0;
#X obj 130 307 r \$0-init;
#X text 231 524 This is more complicated than I thought!;
#X connect 0 0 16 0;
#X connect 1 0 10 1;
#X connect 1 0 11 0;
#X connect 2 0 5 1;
#X connect 5 0 10 0;
#X connect 7 0 24 0;
#X connect 8 0 7 0;
#X connect 10 0 8 1;
#X connect 10 1 7 1;
#X connect 10 2 23 0;
#X connect 11 0 13 1;
#X connect 12 0 14 0;
#X connect 12 1 15 0;
#X connect 13 0 12 0;
#X connect 14 0 6 0;
#X connect 15 0 6 0;
#X connect 16 0 8 0;
#X connect 16 1 5 0;
#X connect 16 2 19 0;
#X connect 16 3 17 0;
#X connect 18 0 15 1;
#X connect 18 0 14 1;
#X connect 20 0 8 1;
#X connect 22 0 24 1;
#X connect 23 0 13 0;
#X connect 23 1 28 0;
#X connect 24 0 6 0;
#X connect 26 0 27 0;
#X connect 27 0 25 0;
#X connect 28 0 21 0;
#X connect 29 0 7 1;