4.3BSD/usr/contrib/icon/book/04/balop.icn

procedure main()
   while line := read() do {
      write(line)
      write(repl(" ",bal('+-*/',,,line) - 1),"|")
      }
end