##
my %vals = map { $_ => $_ } sort { $a <=> $b } @_;
##
##
my %vals = map { $_ => $_ } @_;
sub {
for (keys %vals) {
$vals{$_} += $_ if $vals{$_} <= $last;
}
my ($r) = sort { $a <=> $b } values %vals;
$last = $r;
}
}