let weight_to_int (w : weight) = match w with | `CUSTOM b -> b | #weight_internal as w -> encode_variant weight w