sub compress {
 my @x;
 !@x || $_ ne $x[-1] and push @x, $_ for @{$_[0]};
 \@x
}