Module Loko.Map

module StringMap = struct
  include Map.Make (String)
  include L.Map.Make (Map.Make (String))
end

let a_string_map =
  L.review StringMap.as_assoc [ ("foo", 101); ("bar", 42) ]