module StringMap = struct

  type t = string

  let compare = String.compare

end


module Multiset = struct
  module M = Map.Make (StringMap)

  let get key m =
    try (M.find key m) with
    | Not_found -> 0
end