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