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