Var 
        i,k:byte;
        s:char;
        text:string;
 Begin
  S:=',';
  Readln(text);
  Writeln(text);
  k:=0;
  For i:=1 to length(text) do
  If text[i]=s then k:=k+1;
  If k<>0 then
  K:=k+1; 
  Writeln(k);
 End.