let greedy_astar' cave src dst =
let waiting = (MutBinHeap.make
(fun (_,ac,ah) (_,bc,bh) ->
compare ah bh)) in
MutBinHeap.replace waiting (src, 0, max_float);
(IntPairHash.create 100, waiting)