sub verify_percentile
{
  my $tot = 100;
  $_[1] > $tot && die('out of range');
  return $_[0] + $_[1] > $tot
    ? ( $tot - $_[1], $_[1], 0)
    : (@_[0,1], $tot - $_[0] - $_[1]);
}

##</code><code>##

.