main = do
    mode <- displayMode
    print mode
    play (displayMode width height) black startingState render handleInput stepWorld
main = do
    mode <- displayMode
    print mode
    play (displayMode width height) black startingState render handleInput stepWorld
main = do
    mode <- displayMode
    print mode
    play (displayMode width height) black startingState render handleInput stepWorld