sub pad
{
    my $n = shift;
    return $n if $n =~ /\D/;
    return $n > 9 ? $n : "0$n";
}