+ handle <- openFile fname ReadMode
+ contents <- hGetLines handle
+ hClose handle
+ -- putStrLn $ show $ stringToSim contents
+ initialState <- buildInitialState $ stringToSim contents
+ endState <- B.defaultMain ekitaiApp initialState
+ -- print endState