to copy :from :to
openread :from
openwrite :to
setread :from
setwrite :to
until [eof?] [print readrawline]
closeall
end
copy "input.txt "output.txt