(dired "wlh;")

(defun my-write-line (output-file)
  (with-open-file (output-stream output-file
				 :direction :output
				 :if-exists :new-version
				 :if-does-not-exist :create)
    (format output-stream "Science, sans conscience, n'est que ruine de l'ame.")))
(my-write-line "wlh; stream.test")