(define file-exists? (lambda (path) (let ((in-port (open-input-file path))) (if in-port (begin (close-input-port in-port) #t) #f))))