var s:string;i:word=4*random(3);begin repeat inc(i);readln(s);writeln(s:ord(('IHCC >')[i]))until 1=0end.