my @blocks := (0..*).map: -> $n { -> $x, $y { $x * $y * $n } };

##</code><code>##

sub gen($x, $y) { state $n = 0; $x*$y*$n++ }
my @foo := &gen  xx *;

##</code><code>##

my @foo := sub ($x, $y) { state $n = 0; $x*$y*$n++ } xx *;

##</code><code>##

my @foo = { state $n=-1; $n++; sub ($x,$y) { $x+$y+$n } } ... *;

##</code><code>##

for 0..2 -> $i {
   for 0..2 {
      say @foo[$i](3,5);
   }
   say;
}

##</code><code>##

8
8
8

9
9
9

10
10
10