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