function is_ugt ( $a, $b )
        {
#-k     math is
#       unsigned GT
#-      return true if a '>' b
#-s     See also: rem fix is_uge 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;
        }

?>