(call-with-output-file "/tmp/output.txt"
  (lambda (output)
    (call-with-input-file "/tmp/input.md"
      (lambda (input)
        (current-output-port output)
        (write "test")))))