Curious corner cases concerning closure cloning

[Luke Palmer]

What do these do?

 for 1,2 {
     my $code = {
         my $x;
         BEGIN { $x = 42 }
         $x;
     };
     say $code();
 }

 for 1,2 {
     my $code = {
         state $x;
         BEGIN { $x = 42 }  # mind you, not FIRST
         $x++;
     };
     say $code();
     say $code();
 }

 for 1,2 -> $x {
     END { say $x }
 }

Thanks,
Luke