(library (test-letrec-consumer)
  (export consumer)
  (import (rnrs))
  
  (define (consumer x)
    (letrec ([even? (lambda (n) (if (zero? n) #t (odd? (- n 1))))]
             [odd? (lambda (n) (if (zero? n) #f (even? (- n 1))))])
      (even? x))))
