integer infn = open("input.txt","r"),
outfn = open("output.txt","w")
object line
while 1 do
line = gets(infn)
if atom(line) then exit end if
puts(outfn,line)
end while
close(infn)
close(outfn)