RosettaCodeData/Task/Roman-numerals-Encode/Common-Lisp/roman-numerals-encode.lisp

(defun roman-numeral (n)
  (format nil "~@R" n))