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

procedure main()
   wchar := &lcase ++ &ucase
   while line := read() do
      if line := line[upto(wchar,line):0]
      then write(line[1:many(wchar,line)])
end