sub def {
    my( $val, $alt, $force )= @_;
    $val= defined $alt ? $alt : ""   if  ! defined $val;
    $_[0]= $val   if  ! defined wantarray  ||  $force;
    return $val;
}