type t = {name: string}

let by_name = Hashtbl.create 25

let lookup name =
  Hashtbl.find by_name name

let create name =
  {name = name}