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

procedure main()
   s2 := &cset || "AEIOUaeiou"
   s3 := repl(" ",*&cset) || "||||||||||"
   while line := read() do {
      write(line)
      write(map(line,s2,s3))
      }
end