sub compress ($x) {
    state $previous;
    if $x ne $previous {
        return $x;
    }
    else {
        return;
    }
}