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

procedure main()
   while writes(reads(,1000))
end