pdkl-setf!.pd

#N canvas 630 438 831 593 12;
#X obj 273 132 list split 1;
#X obj 359 191 list split 1;
#X text 20 45 set nth elt of list to given float val;
#X obj 390 230 t b l;
#X obj 364 302 list append;
#X obj 278 354 list append;
#X obj 413 387 spigot;
#X obj 411 89 moses 0;
#X obj 481 184 == 0;
#X obj 278 483 outlet;
#X obj 524 108 inlet;
#X obj 418 24 inlet;
#X obj 488 16 loadbang;
#X obj 271 80 inlet;
#X text 529 84 replace;
#X text 380 24 idx;
#X text 19 121 INLETS:;
#X text 11 196 ARGS:;
#X text 656 112 gpl v 3;
#X text 12 142 input/idx/replace;
#X text 10 217 idx/replace;
#X obj 411 64 f \$1;
#X obj 364 277 f \$2;
#X text 653 66 Derek Kwan 2017;
#X text 654 93 pdklist;
#X text 20 5 pdkl-setf!;
#X connect 0 0 5 0;
#X connect 0 1 1 0;
#X connect 1 1 3 0;
#X connect 3 0 22 0;
#X connect 3 1 4 1;
#X connect 4 0 5 1;
#X connect 4 0 6 0;
#X connect 5 0 9 0;
#X connect 6 0 9 0;
#X connect 7 1 0 1;
#X connect 7 1 8 0;
#X connect 8 0 6 1;
#X connect 10 0 22 1;
#X connect 11 0 21 0;
#X connect 12 0 21 0;
#X connect 13 0 0 0;
#X connect 21 0 7 0;
#X connect 22 0 4 0;