procedure allbal(c,s)
   s ? repeat {
      suspend "" ~== tab(bal(c))
      move(1) | break
      }
end