{
    my $v = 1;
    sub mk_view_v {
        $v;
        sub { $v };
    }
}
print "(", mk_view_v()->(), ")\n";

##</code><code>##

{
    my $v = 1;
    sub mk_view_v {
        # $v;
        sub { $v };
    }
}
print "(", mk_view_v()->(), ")\n";

##</code><code>##

{
    my $v = 1;
    sub mk_mk_view_v {
        $v;
        sub { sub { $v } };
    }
}

print "(", mk_mk_view_v()->()->(), ")\n";