my $compress = do {
    my $previous;
    sub ($x) {
        $x ne $previous ?? $previous = $x !! return;
    };
}