sub f {
    print $_[0];
}