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

procedure main()
   chars := ''
   while chars ++:= read()
   write(*chars)
end