(defun fac (n)
  (loop for result = 1 then (* result i)
	for i from 2 to n
	finally (return result)))

(defun zeros (n)
  (loop for num = n then (/ num 10)
	for zero = (zerop (rem num 10))
	until (null zero)
	summing 1 into result
	finally (return result)))

(defun zero-fac (n)
  (let ((num-digits-over-hundred (- (ceiling (log n 10)) 3)))
    (+ (* (truncate n 100) 25) (- (zeros (fac (rem n 100))) num-digits-over-hundred))))

(loop repeat (read)
      do (format t "~A~%" (zero-fac (read))))