sub gotoNext {
    my $n = shift;
    sprintf '%0*d', $digits, sortHiLow( $n ) - sortLowHi( $n );
}