guile-for-guile-emacs/test-suite/vm/t-mutual-toplevel-defines.scm

(define (even? x)
  (or (zero? x)
      (not (odd? (1- x)))))

(define (odd? x)
  (not (even? (1- x))))

(even? 20)