RosettaCodeData/Task/Roman-numerals-Decode/Common-Lisp/roman-numerals-decode-2.lisp

(dolist (r '("MCMXC" "MDCLXVI" "MMVIII"))
  (format t "~a:~10t~d~%" r (parse-roman r)))