function is_uge ( $a, $b )
        {
#-k     math is
#       Unsigned GE
#       return true if a '>=' b
#-s     See also: rem fix is_ugt umax

        if (($a >= 0)  and  ($b >= 0))
                {                                               # a+ & b+, so do compare
                if ($a >= $b)   return true;
                else            return false;
                }
        elseif ($a >= 0)                { return false; }       # a+ & b-, so b greater
        else
                {                                               # a- & b-, so do opposite compare
                if ($a <= $b) return true;
                }
        return false;
        }

?>