p1( @ARGV ? $ARGV[0] : () ); #### p1(@ARGV);