my %pad = ( 1 => 0, 4 => 3, 9 => 4, 13 => 6 );
my $longest = 6;