sub q{ return($ARGV[1]); }
print q(JAPH);