lightsOn :: Grid s -> ST s Int
lightsOn grid = do
  es <- getElems grid
  return $ length $ filter id es
lightsOn :: Grid s -> ST s Int
lightsOn grid = do
  es <- getElems grid
  return $ length $ filter id es
lightsOn grid = do
  es <- getElems grid
  return $ length $ filter id es