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