4.3BSD/usr/contrib/icon/book/09/copy1.icn

procedure main()
   if not (intext := open("shaw.txt"))
   then stop("cannot open input file")
   while write(read(intext))
end