RosettaCodeData/Task/Roman-numerals-Decode/Tcl/roman-numerals-decode-2.tcl

foreach r {MCMXC MDCLXVI MMVIII} {
    puts "$r\t-> [fromRoman $r]"
}