f a= map $ join.map (\x->[length x:head x] <> replicate (length x - 1) [0]).group.a
f2 x= map (length &&& head).group.map init.sort.filter ((==1).last).join.f id $ transpose $ f (map (:[])) x