runlength :: (Eq a) => [a] -> [(a, Int)]
runlength = map (head &&& length) . group
runlength :: (Eq a) => [a] -> [(a, Int)]
runlength = map (head &&& length) . group
runlength = map (head &&& length) . group