collapseRight :: RightGrouped a b -> RightCollapsed a b
collapseRight (RightGrouped xs) = RightCollapsed $
    (first NE.head . NE.unzip) <$> xs
collapseRight :: RightGrouped a b -> RightCollapsed a b
collapseRight (RightGrouped xs) = RightCollapsed $
    (first NE.head . NE.unzip) <$> xs
collapseRight (RightGrouped xs) = RightCollapsed $
    (first NE.head . NE.unzip) <$> xs