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