Okay, here is the patch to do the spew trick. I might write the external anyways, but this should do the trick. Just fill in the numbers and try not to get a stack overflow.
Later, Mark
#N canvas 196 294 600 500 8; #X obj 177 217 + 1; #X obj 170 155 t i i; #X obj 236 225 spigot; #X obj 222 264 < 20; #X obj 164 255 t i i; #X obj 165 324 print; #X msg 197 188 1; #X msg 150 188 0; #X msg 164 105 bang; #X connect 0 0 4 0; #X connect 1 0 7 0; #X connect 1 1 6 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X connect 4 0 2 0; #X connect 4 0 5 0; #X connect 4 1 3 0; #X connect 6 0 0 1; #X connect 7 0 0 0; #X connect 8 0 1 0;