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

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