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

#N canvas 402 152 538 563 10;
#X obj 74 453 list;
#X obj 97 409 list prepend;
#X obj 74 104 t b a b;
#X text 172 135 "Drip" (serialize) the list;
#X text 121 450 Final result is built here;
#X obj 74 35 inlet;
#X obj 74 484 outlet;
#X text 255 413 Repack the list;
#X obj 193 410 t a;
#X obj 97 134 list-drip;
#X obj 97 230 route float;
#X text 298 308 round it;
#X obj 281 166 inlet;
#X obj 281 232 f \$1;
#X obj 294 201 loadbang;
#X obj 281 254 select 0;
#X msg 281 274 1;
#X obj 97 306 expr int(0.5 + $f1/$f2)*$f2;
#X connect 0 0 6 0;
#X connect 1 0 0 1;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 2 1 9 0;
#X connect 2 2 1 1;
#X connect 5 0 2 0;
#X connect 8 0 1 1;
#X connect 9 0 10 0;
#X connect 10 0 17 0;
#X connect 10 1 1 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 1 17 1;
#X connect 16 0 17 1;
#X connect 17 0 1 0;