Count-digits-of-factorial

(when (or (not (integerp positive-integer-arg))

(< positive-integer-arg 0))

(error "argument is not a non-negative integer"))

(let* ((fact-of-arg

(factorial positive-integer-arg))

(string-of-factorial

(write-to-string fact-of-arg))

(count-list

(compute-list-of-occurrences

string-of-factorial)))

(format t "~

In factorial of ~d, the frequency of digits is as shown:"

positive-integer-arg)

(print-data count-list)))