(define (make-woofus a b) (lambda (msg) (cond ((eq? msg 0) a) ((eq? msg 1) b) (else (error 'Eh?)))))
(define fish (make-woofus 'head 'soup))