main :: IO ()
main = do
        profile  <- cmdArgs argsProfile
        firstGen <- randomGen (width_ profile) (height_ profile)
        let genAsWord  = CUDA.run1 convertGen firstGen
            finalAlive = simulate (generations_ profile) genAsWord
        print $ "Final Alive: " ++ show finalAlive
main :: IO ()
main = do
        profile  <- cmdArgs argsProfile
        firstGen <- randomGen (width_ profile) (height_ profile)
        let genAsWord  = CUDA.run1 convertGen firstGen
            finalAlive = simulate (generations_ profile) genAsWord
        print $ "Final Alive: " ++ show finalAlive
main = do
        profile  <- cmdArgs argsProfile
        firstGen <- randomGen (width_ profile) (height_ profile)
        let genAsWord  = CUDA.run1 convertGen firstGen
            finalAlive = simulate (generations_ profile) genAsWord
        print $ "Final Alive: " ++ show finalAlive