Added function count-char-in-str