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