f38 :: [[Morph]] -> [(Int, Int)]
f38 = runlength . map ((*10) . (`div` 10) . fst) . frequency
f38 :: [[Morph]] -> [(Int, Int)]
f38 = runlength . map ((*10) . (`div` 10) . fst) . frequency
f38 = runlength . map ((*10) . (`div` 10) . fst) . frequency