Multiplicative.Monoid
type t
= Int.Multiplicative.Semigroup.t option
val append : t -> t -> t
val empty : t