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.to_assoc [("foo", 101); ("bar", 42)]