var a:array[1..10]of integer; 
var s:string; 

var i,n:integer; 
begin 
//assign(input,'isbn.in'); 
//assign(output,'isbn.out'); 
//reset(input); 
//rewrite(output); 
read(s); 
 while length(s)>0 do 
 begin 

 if s[1]<>'-' then 
 begin 

 inc(i); 
 val(s[1],a[i]); 

 end; 
if s[1]='X' then a[i]:=10; 
 s:=copy(s,2,length(s)); 
 end; 
 for i:=1 to 9 do 
 begin 
 n:=n+a[i]*i; 
 n:=n mod 11; 
 end; 
 if a[10]=n then write('Right') 
 else 
 begin 
 write(a[1],'-'); 
 for i:=2 to 4 do 
 write(a[i]); 
 write('-'); 
 for i:=5 to 9 do 
 write(a[i]); 
if n=10 then write('-','X') 
else 
 write('-',n) 
 end; 
//close(input); 
//close(output); 
end. 
/**************************************************************
	Problem: 2276
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/