$\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print