Emulated state variables + closure cloning

gistfile1.txt

for 1, 2 -> $x {
    my &rec = {
        my $m = 0;
        sub ($n) {
            return unless $n;
            $m++;
            say "$x-$m";
            rec $n - 1
        }
    }();
    rec 5
}