Pair recursive functions in Scheme

parity.ss

(define odd?
  (lambda (n)
    (cond
      [(zero? n) #f]
      [else (even? (- n 1))])))

(define even?
  (lambda (n)
    (cond
      [(zero? n) #t]
      [else (odd? (- n 1))])))