(while(def m{"I"1"V"5"X"10"L"50"C"100"D"500"M"1000})(prn(apply +(map #((if(<(m(% 0))(m(% 1)0))- +)(m(% 0)))(re-seq #".(?=(.)?)"(read-line))))))