(defun nabeatsu (n)
  (loop for i from 1 to n
        collect (let ((i-str (number-to-string i)))
                  (cond
                   ((= (% i 3) 0)
                    (concat i-str "!"))
                   ((string-match-p "3" i-str)
                    (concat i-str "!"))
                   (t i-str)))))

(loop for x in (nabeatsu 100)
      do (message x))