ちょっと

(defun kawaii (obj)
  (interactive)
  (let (str)
	(setq str (concat obj "かわいい"))
	str))
=> kawaii
(kawaii "すずめ")
=> "すずめかわいい"