+ handle <- openFile fname ReadMode
+ contents <- hGetContents handle
+ putStr contents
+ hClose handle
+ initialState <- buildInitialState $ stringToSim 10 10 contents
+ endState <- B.defaultMain ekitaiApp initialState
+ print endState
+
+-- main :: IO ()
+-- main = do
+ -- return 0