program Project2; {$APPTYPE CONSOLE} var st: string; i,j,f: integer; k: int64; p: boolean; begin { TODO -oUser -cConsole Main : Insert code here } assign(input,'count.in'); reset(input); while not EOF do read(st); close(input); assign(output,'count.out'); rewrite(output); p:= false; f:=length(st); for i:=1 to f-1 do begin for j:= i+1 to f do begin if (st[i]<>st[j]) then p:= true else begin p:= false; break; end; end; if p= true then inc(k); end; inc(k); writeln(1); close(output); end.