(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((xs (loop repeat 5 collect (read)))
         (f (lambda (acc x) (cond
                             ((zerop (mod x 15)) (+ acc 8))
                             ((or (zerop (mod x 3)) (zerop (mod x 5))) (+ acc 4))
                             (t (+ acc (length (princ-to-string x))))))))
    (princ (reduce f xs :initial-value 0))
    (terpri)))
(main)