(import (rnrs)) (define open-input-port open-input-file) (define standard-input (current-input-port)) (define (print x) (display x) (newline)) (define-syntax mapply (syntax-rules () ((mapply f xs arg ...) (map (lambda (x) (f x arg ...)) xs))))
