procedure allbal(c,s)
   local i
   every i := 1 to (*s - 1) do
      suspend "" ~== s[i:bal(c,,,s,i)]
end