sub f { my $x if 0; return $x++ }