(let is_even (fun (i)
  (= 0 (mod i 2))))

(let is_odd (fun (i)
  (= 1 (mod i 2))))