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