4.3BSD/usr/contrib/icon/book/f/allbal3.icn

procedure allbal(c,s)
   s ? suspend arb() & ("" ~== tab(bal(c)))
end