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