-- putStrLn $ show $ stringToSim contents
initialState <- buildInitialState $ stringToSim contents
endState <- B.defaultMain ekitaiApp initialState
-- putStrLn $ show $ stringToSim contents
initialState <- buildInitialState $ stringToSim contents
endState <- B.defaultMain ekitaiApp initialState