let find t key = match Hashtbl.find t.tbl key with | None -> None | Some el -> Some (snd (Heap.heap_el_get_el el))