let mask_of_values values =
  List.fold_left (lor) 0x0 (List.map mask_of_value values)