(let ((var (file-get-lines "input.txt")))
  (file-put-lines "output.txt" var))