Map table: 
   {"Eforie"=>{"Hirsova"=>86}, "Dobreta"=>{"Mehadia"=>75, "Craiova"=>120}, 
   "Vaslui"=>{"Iasi"=>92, "Urziceni"=>142}, 
   "Sibiu"=>{"Rimnicu Vilcea"=>80, "Fagaras"=>99, "Oradea"=>151, "Arad"=>140}, 
   "Iasi"=>{"Vaslui"=>92, "Neamt"=>87}, 
   "Rimnicu Vilcea"=>{"Sibiu"=>80, "Craiova"=>146, "Pitesti"=>97}, 
   "Timisoara"=>{"Lugoj"=>111, "Arad"=>118}, 
   "Fagaras"=>{"Sibiu"=>99, "Bucharest"=>211}, 
   "Mehadia"=>{"Dobreta"=>75, "Lugoj"=>70}, 
   "Neamt"=>{"Iasi"=>87}, "Hirsova"=>{"Eforie"=>86, "Urziceni"=>98}, 
   "Zerind"=>{"Oradea"=>71, "Arad"=>75}, 
   "Oradea"=>{"Sibiu"=>151, "Zerind"=>71}, 
   "Bucharest"=>{"Fagaras"=>211, "Pitesti"=>101, "Urziceni"=>85, "Giurgiu"=>90},
   "Craiova"=>{"Dobreta"=>120, "Rimnicu Vilcea"=>146, "Pitesti"=>138}, 
   "Lugoj"=>{"Timisoara"=>111, "Mehadia"=>70}, 
   "Pitesti"=>{"Rimnicu Vilcea"=>97, "Bucharest"=>101, "Craiova"=>138}, 
   "Urziceni"=>{"Vaslui"=>142, "Hirsova"=>98, "Bucharest"=>85}, 
   "Giurgiu"=>{"Bucharest"=>90}, "Arad"=>{"Sibiu"=>140, "Timisoara"=>118, "Zerind"=>75}}

What city to start with? Arad
What city is the goal? Bucharest

Before Deq, heap: ["nil", [0, 0, "Arad"]]
Deq element [0, "Arad"] from heap: ["nil"]

Adding element [[140, "Sibiu", "Arad"], [118, "Timisoara", "Arad"], [75, "Zerind", "Arad"]], 
   to heap=["nil", [140, "Sibiu", "Arad"], [118, "Timisoara", "Arad"], [75, "Zerind", "Arad"]]

After Enq...heap= ["nil", [75, "Zerind", "Arad"], [118, "Timisoara", "Arad"], 
  [140, "Sibiu", "Arad"]]

Deq element [75, "Zerind", "Arad"] 
  from heap: ["nil", [118, "Timisoara", "Arad"], [140, "Sibiu", "Arad"]]

Adding element [[146, "Oradea", "Zerind", "Arad"]], 
   to heap=["nil", [118, "Timisoara", "Arad"], [140, "Sibiu", "Arad"], 
     [146, "Oradea", "Zerind", "Arad"]]

After Enq...heap= ["nil", [118, "Timisoara", "Arad"], [140, "Sibiu", "Arad"], 
   [146, "Oradea", "Zerind", "Arad"]]

Deq element [118, "Timisoara", "Arad"] 
   from heap: ["nil", [140, "Sibiu", "Arad"], [146, "Oradea", "Zerind", "Arad"]]

Adding element [[229, "Lugoj", "Timisoara", "Arad"]], 
   to heap=["nil", [140, "Sibiu", "Arad"], [146, "Oradea", "Zerind", "Arad"], 
    [229, "Lugoj", "Timisoara", "Arad"]]

After Enq...heap= ["nil", [140, "Sibiu", "Arad"], [146, "Oradea", "Zerind", "Arad"], 
   [229, "Lugoj", "Timisoara", "Arad"]]

Deq element [140, "Sibiu", "Arad"] 
  from heap: ["nil", [146, "Oradea", "Zerind", "Arad"], [229, "Lugoj", "Timisoara", "Arad"]]

Adding element [[220, "Rimnicu Vilcea", "Sibiu", "Arad"], [239, "Fagaras", "Sibiu", "Arad"], 
  [291, "Oradea", "Sibiu", "Arad"]], 
   to heap=["nil", [146, "Oradea", "Zerind", "Arad"], [229, "Lugoj", "Timisoara", "Arad"], 
    [220, "Rimnicu Vilcea", "Sibiu", "Arad"], [239, "Fagaras", "Sibiu", "Arad"], 
    [291, "Oradea", "Sibiu", "Arad"]]

After Enq...heap= ["nil", [146, "Oradea", "Zerind", "Arad"], [229, "Lugoj", "Timisoara", "Arad"],
  [220, "Rimnicu Vilcea", "Sibiu", "Arad"], [239, "Fagaras", "Sibiu", "Arad"], 
  [291, "Oradea", "Sibiu", "Arad"]]

Deq element [146, "Oradea", "Zerind", "Arad"] 
  from heap: ["nil", [220, "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [229, "Lugoj", "Timisoara", "Arad"], [291, "Oradea", "Sibiu", "Arad"], 
   [239, "Fagaras", "Sibiu", "Arad"]]

Adding element [[297, "Sibiu", "Oradea", "Zerind", "Arad"]], 
   to heap=["nil", [220, "Rimnicu Vilcea", "Sibiu", "Arad"], [229, "Lugoj", "Timisoara", "Arad"],
     [291, "Oradea", "Sibiu", "Arad"], [239, "Fagaras", "Sibiu", "Arad"], 
     [297, "Sibiu", "Oradea", "Zerind", "Arad"]]

After Enq...heap= ["nil", [220, "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [229, "Lugoj", "Timisoara", "Arad"], [291, "Oradea", "Sibiu", "Arad"], 
   [239, "Fagaras", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"]]

Deq element [220, "Rimnicu Vilcea", "Sibiu", "Arad"] 
   from heap: ["nil", [229, "Lugoj", "Timisoara", "Arad"], [239, "Fagaras", "Sibiu", "Arad"],
     [291, "Oradea", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"]]

Adding element [[366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]], 
    to heap=["nil", [229, "Lugoj", "Timisoara", "Arad"], [239, "Fagaras", "Sibiu", "Arad"], 
      [291, "Oradea", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
      [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

After Enq...heap= ["nil", [229, "Lugoj", "Timisoara", "Arad"], [239, "Fagaras", "Sibiu", "Arad"],
   [291, "Oradea", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
   [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Deq element [229, "Lugoj", "Timisoara", "Arad"] 
   from heap: ["nil", [239, "Fagaras", "Sibiu", "Arad"], 
    [297, "Sibiu", "Oradea", "Zerind", "Arad"], [291, "Oradea", "Sibiu", "Arad"], 
     [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [[299, "Mehadia", "Lugoj", "Timisoara", "Arad"]], 
   to heap=["nil", [239, "Fagaras", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"],
      [291, "Oradea", "Sibiu", "Arad"], [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [299, "Mehadia", "Lugoj", "Timisoara", "Arad"]]

After Enq...heap= ["nil", [239, "Fagaras", "Sibiu", "Arad"], 
   [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
   [291, "Oradea", "Sibiu", "Arad"], [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], [299, "Mehadia", "Lugoj", "Timisoara", "Arad"]]

Deq element [239, "Fagaras", "Sibiu", "Arad"] 
   from heap: ["nil", [291, "Oradea", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
  [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
  [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

In pEnq, adding element [[450, "Bucharest", "Fagaras", "Sibiu", "Arad"]], 
   to heap=["nil", [291, "Oradea", "Sibiu", "Arad"], [297, "Sibiu", "Oradea", "Zerind", "Arad"],
      [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
      [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [450, "Bucharest", "Fagaras", "Sibiu", "Arad"]]

After Enq...heap= ["nil", [291, "Oradea", "Sibiu", "Arad"], 
    [297, "Sibiu", "Oradea", "Zerind", "Arad"], [299, "Mehadia", "Lugoj", "Timisoara", "Arad"],
     [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"]]

Deq element [291, "Oradea", "Sibiu", "Arad"] 
   from heap: ["nil", [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
     [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [[362, "Zerind", "Oradea", "Sibiu", "Arad"]], 
   to heap=["nil", [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
     [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [362, "Zerind", "Oradea", "Sibiu", "Arad"]]

After Enq...heap= ["nil", [297, "Sibiu", "Oradea", "Zerind", "Arad"], 
   [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
   [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
   [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [362, "Zerind", "Oradea", "Sibiu", "Arad"]]

Deq element [297, "Sibiu", "Oradea", "Zerind", "Arad"] 
   from heap: ["nil", [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [362, "Zerind", "Oradea", "Sibiu", "Arad"], [450, "Bucharest", "Fagaras", "Sibiu", "Arad"],
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [[377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"]], 
   to heap=["nil", [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [362, "Zerind", "Oradea", "Sibiu", "Arad"], [450, "Bucharest", "Fagaras", "Sibiu", "Arad"],
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"]]

After Enq...heap= ["nil", [299, "Mehadia", "Lugoj", "Timisoara", "Arad"], 
   [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [362, "Zerind", "Oradea", "Sibiu", "Arad"], [450, "Bucharest", "Fagaras", "Sibiu", "Arad"],
   [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"]]

Deq element [299, "Mehadia", "Lugoj", "Timisoara", "Arad"] 
   from heap: ["nil", [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [362, "Zerind", "Oradea", "Sibiu", "Arad"], [450, "Bucharest", "Fagaras", "Sibiu", "Arad"],
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"]]

Adding element [[374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]], 
   to heap=["nil", [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [362, "Zerind", "Oradea", "Sibiu", "Arad"], [450, "Bucharest", "Fagaras", "Sibiu", "Arad"],
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]]

After Enq...heap= ["nil", [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [362, "Zerind", "Oradea", "Sibiu", "Arad"], [450, "Bucharest", "Fagaras", "Sibiu", "Arad"],
   [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]]

Deq element [317, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"] 
   from heap: ["nil", [362, "Zerind", "Oradea", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"]]

Adding element [[418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
  [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]], 
   to heap=["nil", [362, "Zerind", "Oradea", "Sibiu", "Arad"], 
     [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

After Enq...heap= ["nil", [362, "Zerind", "Oradea", "Sibiu", "Arad"], 
   [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
   [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
   [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Deq element [362, "Zerind", "Oradea", "Sibiu", "Arad"] 
   from heap: ["nil", [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"],
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [], 
   to heap=["nil", [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

After Enq...heap= ["nil", [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
   [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
   [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Deq element [366, "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"] 
   from heap: ["nil", [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [[486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]], 
   to heap=["nil", [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

fter Enq...heap= ["nil", [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
   [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
   [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Deq element [374, "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"] 
   from heap: ["nil", [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [[494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]], 
   to heap=["nil", [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]]

After Enq...heap= ["nil", [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
    [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
    [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
    [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]]

Deq element [377, "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"] 
   from heap: ["nil", [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"]]

Adding element [[523, "Craiova", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [474, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"]], 
    to heap=["nil", [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
      [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
      [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
      [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
      [523, "Craiova", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
      [474, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"]]

After Enq...heap= ["nil", [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"], 
    [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
    [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [474, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
    [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
    [523, "Craiova", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
    [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"]]

Deq element [396, "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"] 
   from heap: ["nil", [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [474, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [523, "Craiova", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"]]

Adding element [[607, "Bucharest", "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"]], 
   to heap=["nil", [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
     [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [474, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
     [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
     [523, "Craiova", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
     [607, "Bucharest", "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"]]

After Enq...heap= ["nil", [418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [450, "Bucharest", "Fagaras", "Sibiu", "Arad"], 
   [486, "Dobreta", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [474, "Pitesti", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [455, "Craiova", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [504, "Pitesti", "Craiova", "Rimnicu Vilcea", "Sibiu", "Arad"], 
   [494, "Craiova", "Dobreta", "Mehadia", "Lugoj", "Timisoara", "Arad"], 
   [523, "Craiova", "Rimnicu Vilcea", "Sibiu", "Oradea", "Zerind", "Arad"], 
   [607, "Bucharest", "Fagaras", "Sibiu", "Oradea", "Zerind", "Arad"]]

Bucharest found on iteration 18
Path:
[418, "Bucharest", "Pitesti", "Rimnicu Vilcea", "Sibiu", "Arad"]