(define (foo x y) ((assq x <foo>) y)) (define <foo> (list (cons 'foo (lambda (x) (+ x x))) (cons 'bar (lambda (y) (* y y)))))