function x=rom2int(str);
numbers=['I   '
         'II  '
         'III '
         'IV  '
         'V   '
         'VI  '
         'VII '
         'VIII'
         'IX  '
         'X   '
         'XI  '
         'XII '];
blank=find(str==' ');
str(blank)=[];

if abs(str(1)>90)
   str=setstr(abs(str)-ones(str/str(1))*32);
end
if length(str)>4 
    str=str(1:4);
elseif length(str)<4
    for i=length(str)+1:4
      str(i)=' ';
    end
end
x=nan;
for i=1:12
  if str==numbers(i,:)
     x=i;
  end
end
