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

#N canvas 281 128 614 631 10;
#X obj 164 224 list;
#X obj 327 98 inlet;
#X obj 250 98 inlet;
#X text 331 72 orig;
#X text 256 74 pos;
#X text 77 70 list to insert;
#X obj 85 94 inlet;
#X obj 164 254 list-splat \$1;
#X obj 272 231 list-len;
#X obj 207 281 list split;
#X obj 85 526 list;
#X obj 85 598 outlet;
#X obj 85 317 list prepend;
#X obj 85 120 t a b a b;
#X obj 85 430 list prepend 0;
#X obj 250 125 t f f;
#X obj 207 524 list prepend;
#X obj 85 469 route 0 1;
#X obj 316 347 f;
#X obj 286 282 t a b;
#X obj 316 377 > 0;
#X obj 122 358 r \$0-init;
#X obj 122 377 0;
#X obj 300 524 r \$0-init;
#X obj 176 317 r \$0-init;
#X obj 118 527 r \$0-init;
#X obj 159 131 s \$0-init;
#X text 47 25 list-replace: Replace the list starting at position POS
with a new list \, overwriting the old elements.;
#X connect 0 0 7 0;
#X connect 1 0 0 1;
#X connect 2 0 15 0;
#X connect 6 0 13 0;
#X connect 7 0 12 1;
#X connect 7 1 9 0;
#X connect 7 2 19 0;
#X connect 8 0 9 1;
#X connect 9 1 10 1;
#X connect 9 1 16 1;
#X connect 10 0 11 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 13 1 0 0;
#X connect 13 2 8 0;
#X connect 13 3 26 0;
#X connect 14 0 17 0;
#X connect 15 0 7 1;
#X connect 15 1 18 1;
#X connect 16 0 11 0;
#X connect 17 0 10 0;
#X connect 17 1 16 0;
#X connect 18 0 20 0;
#X connect 19 0 16 1;
#X connect 19 0 10 1;
#X connect 19 1 18 0;
#X connect 20 0 14 1;
#X connect 21 0 22 0;
#X connect 22 0 14 1;
#X connect 23 0 16 1;
#X connect 24 0 12 1;
#X connect 25 0 10 1;