chose/extra/list-abs/list-geometric-mean.pd

#N canvas 355 173 457 428 10;
#X obj 127 69 inlet;
#X obj 127 337 outlet;
#X obj 146 138 list-drip;
#X obj 146 164 route float;
#X obj 127 274 f;
#N canvas 425 298 450 300 count 0;
#X obj 133 59 b;
#X obj 133 35 inlet;
#X obj 183 35 inlet;
#X obj 164 111 + 1;
#X obj 133 133 outlet;
#X msg 183 71 1;
#X obj 133 110 f 1;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 3 0 6 1;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X connect 6 0 4 0;
#X restore 222 226 pd count;
#X obj 146 189 t a b;
#X obj 127 105 t b a b b;
#X obj 222 253 pow -1;
#X obj 127 302 pow;
#N canvas 370 313 450 300 product 0;
#X obj 135 79 inlet;
#X obj 182 79 inlet;
#X obj 135 169 outlet;
#X obj 168 138 f;
#X obj 135 137 *;
#X obj 182 102 1;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 3 0 4 1;
#X connect 4 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 1;
#X restore 146 225 pd product;
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 10 0;
#X connect 6 1 5 0;
#X connect 7 0 4 0;
#X connect 7 1 2 0;
#X connect 7 2 10 1;
#X connect 7 3 5 1;
#X connect 8 0 9 1;
#X connect 9 0 1 0;
#X connect 10 0 4 1;