(with-open-file (f "f" :direction :output) (format f "Hello, world"))