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

(define file (open-file "txxt" "w"))

((print) file)

(close file)

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