boxes :: Matrix a -> Matrix a
boxes = map ungroup . ungroup . map cols . group . map group
boxes :: Matrix a -> Matrix a
boxes = map ungroup . ungroup . map cols . group . map group
boxes = map ungroup . ungroup . map cols . group . map group