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

procedure main()
   while line := read() do {
      line := line[1:61]	# truncate
      write(line)
      }
end