(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 (read port))))))
      (set! as (cons (cons fn nv) as)) nv))))))