let get t p = try Some (Hashtbl.find t p) with Not_found -> None