type t = {name: string}
let by_name = Hashtbl.create 25
let lookup name =
Hashtbl.find by_name name
let create name =
{name = name}