RosettaCodeData/Task/File-input-output/Emacs-Lisp/file-input-output.l

(defvar input (with-temp-buffer
                (insert-file-contents "input.txt")
                (buffer-string)))

(with-temp-file "output.txt"
  (insert input))