(- (* 70147833903540842 (/ 1. (expt 2 55))) 1) (define fileVal (let ((as '()) (rep "/Users/norm/cap-lore.com/code/Scheme/repository/")) (lambda (fn) (let ((p (assoc fn as))) (if p (cdr p) (let ((nv (call-with-input-file (string-append rep fn) (lambda (port) ((eval `(lambda (fileVal ) ,(read port)) (scheme-report-environment 5)) fileVal ))))) (set! as (cons (cons fn nv) as)) nv)))))) (fileVal "bg")