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

procedure main()
   while line := read()
   write(line)
end