RosettaCodeData/Task/Roman-numerals-Decode/K/roman-numerals-decode-1.k

  romd: {v:1 5 10 50 100 500 1000@"IVXLCDM"?/:x; +/v*_-1^(>':v),0}