var maxLen, cLen, i: integer; 
 s: string; 
 begin 
   assign(input, 'k7-3.txt'); 
   readln (s); 
   maxLen := 0; 
   for i:=1 to length(s) do 
     if s[ i]='C' then begin 
       cLen := cLen+1;; 
       if cLen>maxLen then maxLen:=cLen; 
     end 
     else cLen := 0;; 
   writeln (maxLen); 
 end.

 var maxLen, cLen, i: integer;  
     s: string;  
     F: text; 
 begin  
   assign( F, 'k7-3.txt' );  
   reset( F ); 
   readln( F, s );  
   maxLen := 0;  
   for i:=1 to length(s) do   
     if s[ i]='C' then begin  
       cLen := cLen+1;;  
       if cLen>maxLen then maxLen:=cLen;  
     end  
     else cLen := 0;  
   writeln (maxLen);  
 end.