let is_even d =
  (d mod 2) = 0

let is_odd d =
  (d mod 2) <> 0