4.3BSD/usr/contrib/icon/book/f/allbal2.icn
procedure allbal(c,s) s ? repeat { suspend "" ~== tab(bal(c)) move(1) | break } end