sub xx {
     my $arg;
     Dump( $arg );
     $arg =  shift;
     Dump( $arg );
     print "(" . ($arg & "") . ")\n";
 }