sub f { my $x = ...; return $x }