diff --git a/Dijkstra.hs b/Dijkstra.hs
new file mode 100644
--- /dev/null
+++ b/Dijkstra.hs
@@ -0,0 +1,38 @@
+module Dijkstra 
+    (dijkstra)
+where
+
+import Data.Ix
+import Data.Array
+import Data.Maybe
+import Data.List
+
+{-
+class RasterWorld rw where
+    neighbors :: Ix a => rw -> a -> [a]
+    rwbounds  :: Ix a => rw -> (a, a)
+-} 
+
+-- dijkstra :: (Ix a, RasterWorld rw) => rw -> a -> Array a Int
+dijkstra rw pos bnds neighbors =
+    dijkstraUpdate rw (initArray // [(pos, 0)]) (neighbors rw pos) neighbors
+  where 
+    rng        = range bnds
+    initArray  = array bnds [ (ix, maxBound :: Int) | ix <- rng ]
+
+-- dijkstraUpdate :: (Ix a, RasterWorld rw) => rw -> Array a Int -> [a] -> Array a Int
+dijkstraUpdate rw a todo neighbors = 
+    if null todo' then a' else dijkstraUpdate rw a' (nub todo') neighbors
+  where 
+    (update, todo')  = foldl updateOne ([], []) todo
+    a'               = a // update
+    updateOne acc@(u, td) ix =
+        let nbDist = 1+(minimum $ map (a !) nb)
+            nb      = neighbors rw ix
+        in
+           if nbDist < a ! ix then ((ix, nbDist):u, nb ++ td)
+              else acc
+
+        
+   
+    
diff --git a/topkata.cabal b/topkata.cabal
--- a/topkata.cabal
+++ b/topkata.cabal
@@ -1,5 +1,5 @@
 Name:                topkata
-Version:             0.2.2
+Version:             0.2.3
 Synopsis:            OpenGL Arcade Game
 Description:         Guide a jumping ball through a maze.
 License:             GPL
@@ -37,7 +37,7 @@
   Build-Depends:       base, filepath, GLUT, OpenGL, array, random
   Other-Modules:       Labygen, Labygen.Render, 
                        Topkata.Topka.Topka, Topkata.Topka.Ghost, Topkata.Topka.Base
-                       Vector, ReadImage
+                       Vector, ReadImage, Dijkstra
   Extensions:          CPP
   if flag(sound)
       Build-Depends:   OpenAL, ALUT