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

#N canvas 628 149 479 392 10;
#X obj 84 29 inlet;
#X obj 162 29 inlet;
#X obj 84 226 outlet;
#X obj 171 227 outlet;
#X obj 267 228 outlet;
#N canvas 309 114 692 535 negatives 0;
#X obj 213 50 inlet;
#X obj 289 121 inlet;
#X obj 213 447 outlet;
#X obj 245 407 outlet;
#X obj 278 376 outlet;
#X obj 213 325 list split;
#X obj 243 95 list-len;
#X text 80 20 This will only get called \, if the index is negative.
;
#X obj 213 74 t a a;
#X obj 273 148 +;
#X obj 273 171 moses;
#X obj 243 121 t f f;
#X msg 273 193 1;
#X obj 227 257 +;
#X text 66 258 this is a hack: ==>;
#X connect 0 0 8 0;
#X connect 1 0 9 1;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 5 2 4 0;
#X connect 6 0 11 0;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 10 1 5 1;
#X connect 11 0 13 1;
#X connect 11 1 9 0;
#X connect 12 0 13 0;
#X connect 13 0 5 1;
#X restore 188 169 pd negatives;
#X obj 135 113 < 0;
#N canvas 235 272 450 300 route 0;
#X obj 76 76 inlet;
#X obj 155 74 inlet;
#X obj 76 123 list prepend;
#X obj 76 158 route 0 1;
#X obj 76 231 outlet;
#X obj 105 192 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 84 137 pd route;
#X obj 162 63 f \$1;
#X obj 210 29 loadbang;
#X obj 162 85 t f f f;
#X obj 84 168 list split;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 5 2 4 0;
#X connect 6 0 7 1;
#X connect 7 0 11 0;
#X connect 7 1 5 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 6 0;
#X connect 10 1 11 1;
#X connect 10 2 5 1;
#X connect 11 0 2 0;
#X connect 11 1 3 0;
#X connect 11 2 4 0;