RosettaCodeData/Task/Roman-numerals-Decode/Maple/roman-numerals-decode.maple

f := n -> convert(n, arabic):
seq(printf("%a\n", f(i)), i in [MCMXC, MMVIII, MDCLXVI]);