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

#N canvas 0 0 450 300 10;
#X obj 139 43 inlet;
#X obj 139 65 t a a;
#X obj 139 166 list-math /;
#X obj 211 93 list-accum;
#X obj 139 227 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;