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