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

procedure main()
   lines := []
   while push(lines,read())
   while write(get(lines))
end