var x,y:integer;
Begin
read(x,y);
if (x>0) and (y>0) then writeln("I");
if (x>0) and (y<0) then writeln("IV");
if (x<0) and (y>0) then writeln("II");
if (x<0) and (y<0) then writeln("III");
End.
var x,y:integer;
Begin
read(x,y);
if (x>0) and (y>0) then writeln("I");
if (x>0) and (y<0) then writeln("IV");
if (x<0) and (y>0) then writeln("II");
if (x<0) and (y<0) then writeln("III");
End.