main = do
    getArgsAndInitialize
    initialDisplayMode $= [DoubleBuffered]
    createWindow "Haskell-blocks"
    windowSize $= Size (fromIntegral (width gameArea) * 25) (fromIntegral (height gameArea) * 25)
    startNewGame
    mainLoop
main = do
    getArgsAndInitialize
    initialDisplayMode $= [DoubleBuffered]
    createWindow "Haskell-blocks"
    windowSize $= Size (fromIntegral (width gameArea) * 25) (fromIntegral (height gameArea) * 25)
    startNewGame
    mainLoop
main = do
    getArgsAndInitialize
    initialDisplayMode $= [DoubleBuffered]
    createWindow "Haskell-blocks"
    windowSize $= Size (fromIntegral (width gameArea) * 25) (fromIntegral (height gameArea) * 25)
    startNewGame
    mainLoop