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