let isEven x =
  x &&& 1 = 0