(require 'cl-lib)

(defun echo-point ()
  (interactive)
  (message "%s" (point)) )

(defun sum-penalties (p)
  (if (= 0 p) 0
    (+ p (sum-penalties (1- p))) ))

(defun count-char-in-string (the-char str)
  (if (and (char-or-string-p the-char)
           (char-or-string-p str) )
      (let ((c  (if (characterp the-char) the-char (string-to-char the-char)))
            (cs (string-to-list str)) )
        (cl-count c cs) )
    (error "Indata verification failed.") ))

(defun abc ()
  (interactive)
  (message
   "a b c d e f g h i j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z" ) )

(defalias 'word-count 'count-words)

(defalias 'what-char 'describe-char)