gridBrightness :: Grid2 s -> ST s Int
gridBrightness grid = sum <$> getElems grid
gridBrightness :: Grid2 s -> ST s Int
gridBrightness grid = sum <$> getElems grid
gridBrightness grid = sum <$> getElems grid