@I=(XII,I,II,III,IIII,V,VI,VII,VIII,IX,X,XI);
<>=~$";
print$I[((grep$`eq$I[$_],0..11)[0]+$')%12]