package myblib;
sub foo { print +(caller(0))[3],"(@_)\n" }
1;