(with-open-file
(stream
(make-pathname :directory '(:absolute "") :name "output.txt")
:direction :output))