%h=@h=M1000CM900D500CD400C100XC90L50XL40X10IX9V5IV4I1=~/(\pl+)(\d*)/g;$r=join'|',sort{$b=~/../-$a=~/../}keys%h;<>;<>=~s/$r/$s+=$h{$&}/ger;$s>3999?print"ERROR":${(($_)=grep$h{$_}&&$s>=$h{$_},@h),print,$s-=$h{$_}while$s}