agrupar :: ((t)) -> (t,Int)
agrupar [[]] = (0,0)
agrupar (a:as):l = ((a,contar a (a:as):l))++(agrupar as:l)

contar a [] = 0
contar a ([]:ls) = contar a ls
contar a ((x:xs):ls) = if a == x then 1 + contar a ((xs):ls) else contar a ((xs):ls)