My First Emacs Lisp Function

(defun how-many-chars ()
  (interactive)
  (message "We are %d chracters into this buffer."
           (- (point)
              (save-excursion
                (goto-char (point-min))
                (point)))))