sub compress(*@a) {
    flat @a Zxx 1, (@a Zne @a[1..*-1])
}

say compress(<a a a a b c c a a d e e e e>).perl;