; even/odd mutual recursion
(define (even n) 
	(if (eqv? n 0) #t
		(odd (- n 1))))
(define (odd n)
	(if (eqv? n 0) #f
		(even (- n 1))))