(let ((n (read-line)) (s (read-line))) (loop for c from (char-code #\A) to (char-code #\Z) do (format t "~A" (count (char-upcase (code-char c)) s :test #'char-equal))))(terpri)