var a:string; i,j:byte;  
begin  	
  readln(a);  	
  for i:=1 to length(a) do  		
   for j:=i to length(a) do begin  			
    if a[i]=a[j] then begin 
     writeln('Odinakovo');  			
     halt;  		        
   end;                 
 end;   
writeln('neodinakovo');  
end .