or use that one which is built with core pd-objects (>=0.39)
(seems like i am on frank's list-trip)
mfg.asd.r IOhannes
#N canvas 0 0 598 437 10; #X obj 209 205 list; #X obj 209 328 outlet; #X obj 230 48 t a a; #X obj 239 303 list trim; #X obj 209 258 spigot 1; #X obj 239 280 spigot 0; #X obj 260 211 t f f; #X obj 290 233 == 0; #X obj 260 233 != 0; #X obj 324 168 b; #X obj 324 187 i 0; #X obj 260 168 b; #X obj 260 187 i 1; #X obj 209 73 t b a a; #X obj 260 147 route list; #X obj 144 49 route bang; #X obj 230 26 inlet cold; #X obj 144 26 inlet hot; #X connect 0 0 4 0; #X connect 0 0 5 0; #X connect 2 0 0 1; #X connect 2 1 14 0; #X connect 3 0 1 0; #X connect 4 0 1 0; #X connect 5 0 3 0; #X connect 6 0 8 0; #X connect 6 1 7 0; #X connect 7 0 5 1; #X connect 8 0 4 1; #X connect 9 0 10 0; #X connect 10 0 6 0; #X connect 11 0 12 0; #X connect 12 0 6 0; #X connect 13 0 0 0; #X connect 13 1 0 1; #X connect 13 2 14 0; #X connect 14 0 11 0; #X connect 14 1 9 0; #X connect 15 0 0 0; #X connect 15 1 13 0; #X connect 16 0 2 0; #X connect 17 0 15 0;