var sb,z:string;

m,i,j:longint;

d:char;

begin

read(sb);

z:=sb;

delete(sb,2,1);

delete(sb,5,1);

delete(sb,10,1);

for i:=1 to 9 do

begin

val(sb[i],j);

m:=m+i*j;

end;

j:=m mod 11;

case j of

1:d:='1';

2:d:='2';

3:d:='3';

4:d:='4';

5:d:='5';

6:d:='6';

7:d:='7';

8:d:='8';

9:d:='9';

10:d:='X';

end;

if z[13]=d then write('Right')

else

begin

delete(z,13,1);

insert(d,z,13);

write(z);

end;

end.