(define file? (λ (path) (access? path F_OK))) (define readable? (λ (path) (access? path R_OK))) (define readable-file? (λ (path) (and (readable? path) (file? path))))
