let is_even d =
  (d land 1) = 0

let is_odd d =
  (d land 1) <> 0