10 lines
241 B
Text
10 lines
241 B
Text
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)
|