let find_pop t key =
    match Hashtbl.find t.tbl key with
    | None -> None
    | Some el ->
        let (_k, v) = Heap.heap_el_get_el el in
        Hashtbl.remove t.tbl key;
        Heap.remove el;
        Some v