sub sqs # stable quicksort
  {
  @_ < 2 and return @_;
  my $p = $_[@_ / 2];     # pivot
  sqs( grep $_ < $p, @_ ), grep( $_ == $p, @_ ), sqs( grep $_ > $p, @_ );
  }