#! emacs --script
;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/script/count-funs.el

(let ((func 0)
      (cmdc 0)
      (funs))
  (mapatoms (lambda (e)
              (when (functionp e)
                (cl-incf func)
                (when (commandp e)
                  (cl-incf cmdc))
                (when (zerop (mod func 2000))
                  (push e funs)))))
  (message "funs: %s\ncmds: %s\nexamples: %s" func cmdc funs))