simulate :: Int -> Generation -> A.Scalar Int64
simulate 0 g = CUDA.run1 (A.sum . A.map (\a -> A.fromIntegral a :: A.Exp Int64)) g
simulate :: Int -> Generation -> A.Scalar Int64
simulate 0 g = CUDA.run1 (A.sum . A.map (\a -> A.fromIntegral a :: A.Exp Int64)) g
simulate 0 g = CUDA.run1 (A.sum . A.map (\a -> A.fromIntegral a :: A.Exp Int64)) g