(for-each
  (^s (format #t "~7d: ~d\n" s (decode s)))
  '("MCMLVI" "XXC" "MCMXC" "XXCIII" "IIIIX" "MIM" "LXXIIX"))