*scratch*.el

(defun my-count-maps (keymap)
  (let ((count 0))
    (cl-loop for touple in (cdr keymap)
             ;; touple == (27 keymap (9 . ispell-complete-word))
             do
             (progn
               (if (eq (car-safe (cdr-safe touple)) 'keymap)
                   ;; descent into sub keymap
                   (setq count (+ count
                                  (my-count-maps (cdr touple))))
                 ;; else condition
                 (setq count (1+ count)))
               ))
    ;; return value
    count))

(message "total: %d" (my-count-maps org-mode-map))