19999
19111
19191
19191
11191
##</code><code>##

# run with perl -ln prog.pl input
push@a,/./g;$r||=@a}{print$s{-1+map{$u{$_}||=$a[$_]+$s{$g-1}for
grep$a[$_]*!$s{$_},$g+$r,$g-!!($g%$r),$g-$r*($g>=$r),++$g*!!($g
%$r);($g)=sort{$u{$a}-$u{$b}}keys%u;$s{$g}=delete$u{$g}}@a}

##</code><code>##

1       push @a,/./g;
2       $r||=@a
3   }{
4       print $s{
5           -1 + map{
6               $u{$_}||=$a[$_]+$s{$g-1} for
7                   grep $a[$_] * !$s{$_},
8                       $g+$r,
9                       $g-!!($g%$r),
10                      $g-$r*($g>=$r),
11                      ++$g*!!($g %$r);
12              ($g)=sort{$u{$a}-$u{$b}}keys%u;
13              $s{$g}=delete$u{$g}
14          }@a
15      }