Plaster

(defmacro say (&rest x) (mapcar (lambda (o) (typecase o (string (print o)) (sequence (if t `(,(car o) ,@(cdr o))) (print o)) (t (print o)))) x) t) (say "Good morning" (user 10)) "Good morning" (USER 10) T