> (scheme) Welcome to UNM Scheme 1.2 $ (define even (lambda (x) (if (eq? x 0) 1 (if (eq? x 1) 0 (odd (- x 1)))))) ok $ even (function #1=(x) #2=(if (eq? x 0) 1 (if (eq? x 1) 0 (odd (- x 1)))) #0=(((even (function #1# #2# #0#)) (car #<primitive:car>) (cdr #<primitive:cdr>) (cons #<primitive:cons>) . . . ))) $ (define odd (lambda (x) (if (eq? x 0) 0 (if (eq? x 1) 1 (even (- x 1)))))) ok $ even (function #1=(x) #2=(if (eq? x 0) 1 (if (eq? x 1) 0 (odd (- x 1)))) #0=(((odd (function (x) (if (eq? x 0) 0 (if (eq? x 1) 1 (even (- x 1)))) #0#)) (even (function #1# #2# #0#)) (car #<primitive:car>) (cdr #<primitive:cdr>) (cons #<primitive:cons>) . . . ))) $ odd (function #0=(x) #1=(if (eq? x 0) 0 (if (eq? x 1) 1 (even (- x 1)))) #2=(((odd (function #0# #1# #2#)) (even (function (x) (if (eq? x 0) 1 (if (eq? x 1) 0 (odd (- x 1)))) #2#)) (car #<primitive:car>) (cdr #<primitive:cdr>) (cons #<primitive:cons>) . . . ))) $ (even 8) 1 $ (even 7) 0 $