function right ( $str, $cnt )
        {
#-k     string  parse
#-      Return the rightmost $cnt chars of a string
#-d     2/19/21 - Added

        return substr ( $str, -$cnt );
        }

?>