; These values to be included before other uses of this repository.
(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 `(let ((fileVal ,fileVal)(ylppa ,ylppa)(call/cc ,call/cc)
      (bitwise-and ,bitwise-and)(arithmetic-shift ,arithmetic-shift))
     ,(read port)) (scheme-report-environment 5))))))
      (set! as (cons (cons fn nv) as)) nv))))))