(define (print)
  (system "ls"))

(let ((output-port (open-file "my.txt" "a")))
  ((print) output-port)
  (newline output-port)
  (close output-port))

;; => ERROR: Wrong type to apply: 0