__DATA__
28 31
199 201

##</code><code>##

sub elide {
    my ($start,$end) = @_;

    if ($end < $start)                 { ($start, $end) = ($end, $start) }
    elsif ($start == $end)             { return $start }
    if (length($end) > length($start)) { return "$start-$end" }
    else {
        my $pow = 1;
        $pow *= 10 while int($end/$pow) > int($start/$pow);
        $end %= $pow;
    } 
    return "$start-$end";
}