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

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