先生、emacsモナーさんを作ってみました。

(defun mona ()
　　(interactive)
　　(while t
　　　　(message "（　´∀｀）")
　　　　(sit-for 2)
　　　　(message "（´∀｀　）")
　　　　(sit-for 2)
　　)
)