-- ignore infinite area, with any luck the biggest one is already inside
areas :: Grid -> [Int]
areas grid = map length $ group $ sort $ catMaybes $ Arr.elems grid
areas :: Grid -> [Int]
areas grid = map length $ group $ sort $ catMaybes $ Arr.elems grid
areas grid = map length $ group $ sort $ catMaybes $ Arr.elems grid