to copy :from :to
  openread :from
  openwrite :to
  setread :from
  setwrite :to
  until [eof?] [print readrawline]
  closeall
end

copy "input.txt "output.txt