sub f { state $x; return $x++ }