integer byte,
infd = open("input.txt","rb"),
outfd = open("output.txt","wb")
while 1 do
byte = getc(infd)
if byte=-1 then exit end if
puts(outfd,byte)
end while
close(infd)
close(outfd)