:let[I,V,X,L,C,D,M]=[1,5,10,50,100,500,1000]|%norm:s/\vI[VX]|X[LC]|C[DM]/-\0/ge|s/./+\0/g
D@='i'.eval(@")
ZZ