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

#N canvas 300 195 729 624 10;
#X obj 268 56 inlet;
#X obj 268 184 t a a;
#X obj 268 250 list prepend;
#X obj 366 302 t b a;
#X obj 366 325 list;
#X obj 143 379 list;
#X obj 143 407 list split 1;
#X obj 143 492 list split;
#X obj 143 527 outlet;
#X obj 71 56 inlet;
#X text 380 252 prepend size of list;
#X obj 222 528 outlet;
#X obj 347 217 list-len;
#X obj 366 55 inlet;
#X text 419 304 store lists;
#X text 256 445 get length of next stored list and split it off.;
#X text 270 34 push;
#X text 365 35 reset stack;
#X obj 366 79 b;
#X obj 71 138 route clear;
#X obj 143 164 b;
#X text 69 34 pop (or clear);
#X obj 143 441 t b a;
#X obj 143 467 list append;
#X obj 268 301 list append;
#X obj 71 164 b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 12 0;
#X connect 2 0 24 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 1;
#X connect 4 0 24 1;
#X connect 5 0 6 0;
#X connect 6 0 22 0;
#X connect 6 1 23 1;
#X connect 6 2 11 0;
#X connect 7 0 8 0;
#X connect 7 1 3 0;
#X connect 9 0 19 0;
#X connect 12 0 2 1;
#X connect 13 0 18 0;
#X connect 18 0 3 0;
#X connect 19 0 25 0;
#X connect 19 1 20 0;
#X connect 20 0 5 0;
#X connect 22 0 23 0;
#X connect 22 1 7 1;
#X connect 23 0 7 0;
#X connect 24 0 3 0;
#X connect 25 0 3 0;