(- (* 70147833903540842 (/ 1. (expt 2 55))) 1)

(define (ylppa a b) (apply b a))
(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  call/cc bitwise-and arithmetic-shift)
   ,(read port)) (scheme-report-environment 5))
       fileVal  call/cc bitwise-and arithmetic-shift)))))
      (set! as (cons (cons fn nv) as)) nv))))))
 
 (fileVal "bg")