my @in = <a a a a b c c a a d e e e e>;
say gather for @in -> $i {
    state $last;
    $last = take $i if $i ne $last;
};