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