(let ((stream (open "output.txt" :direction :output)))
  (close stream))