;;; HOW TO LIVE LIFE (define today (lambda (days) (car days))) (define future (lambda (days) (cdr days))) (define living (lambda (days) (if (null? days) 'dead (begin (live (today days)) (living (future days))))))