p36 n = map encode . group . p35 $ n where
        encode l@(x:_) = (x, length l)
p36 n = map encode . group . p35 $ n where
        encode l@(x:_) = (x, length l)
p36 n = map encode . group . p35 $ n where
        encode l@(x:_) = (x, length l)