Var
  c:char;
  k:integer;
  FlagBlank:boolean;
begin
  Read(c);
  case c of
  'К','к':begin k:=1; FlagBlank:=True end;
  ' ':begin k:=0; FlagBlank:=False end;
  '.':k:=0;
  else begin k:=0; FlagBlank:=True end
  end;
  while c'.' do begin
    while (not FlagBlank) and (c'.') do
    begin Read(c); FlagBlank:=(c=' ') end;
    while Flagblank and (c'.') do
    begin Read(c); FlagBlank:=(c=' ') end;
    if UpCase(c)='К' then Inc(k);
  end;
  Writeln(k);
end.