System.in.eachLine{a=it as List
m=[I:i=1,V:5,X:10,L:50,C:100,D:500,M:1e3]
println a.sum{n=m[it];n<m[a[i++]]?-n:n}}