function left ( $str, $cnt )
        {
#-k     string  parse
#-      Return the leftmost $cnt chars of a string
#-d     2/15/21 Added

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

?>