(defun mona ()
(interactive)
(while t
(message "%s" '(　´∀｀))
(sit-for 2)
(message "%s" '(´∀｀　))
(sit-for 2)))
これでええやん。