(write
 (letrec ((even?  (lambda (n) (if (zero? n) 'even (odd? (- n 1)))))
          (odd?  (lambda (n) (if (zero? n) 'odd (even? (- n 1))))))
  (even? 88)))
(newline)