open 1, "input.txt"
open 2, "output.txt"
while not eof(1)
	linea$ = readline(1)
	write 2, linea$
end while
close 1
close 2