sub closure($n) {
    say "outer";
    return if $n == 0;
    my $x = -> $n {
	say "inner";
	return if $n == 0;
	&?ROUTINE(0);
    }
    $x(1);
}