Hashtbl.Make (
    struct
      type t = string
          
      let equal (x: string) (y: string) : bool =
        x = y
          
      let hash (s: string) : int =
        Hashtbl.hash s
                
    end
  )