let complementable = function
  | Zero -> false
  | _ -> true