frequency :: [[Morph]] -> [(Int, ByteString)]
frequency = sortBy (flip compare) . runlengthF . sort . map base . join
frequency :: [[Morph]] -> [(Int, ByteString)]
frequency = sortBy (flip compare) . runlengthF . sort . map base . join
frequency = sortBy (flip compare) . runlengthF . sort . map base . join