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

procedure main()
   while write(read()) do
      if not read() then break
end