sub xarg       { my $tmp = $_[0]; length $tmp }
sub xarg_shift { my $tmp = shift; length $tmp }