Var
 f:Text;
 C,C1:Char;
 Nsm:Word;
 b:Boolean;
Begin
 Assign(f,'d.in');
 Reset(f);
 Nsm:=0;
 Repeat
  b:=false;
  Read(f,C);
  If (C=':') or (C=';') then
   begin
    b:=true;
    Read(f,C);
    If C='-'then
     repeat
      Read(f,C);
     until (C<>'-') or EoF(f);
    If (C='(') or (C=')') or (C='[') or (C=']') then
     begin
      C1:=C;
      repeat
       Read(f,C);
      until (C<>C1) or EoF(f);
     end
    else b:=false;
    If b then Inc(Nsm);
   end;
 Until EoF(f);
 Close(f);
 Assign(f,'d.out');
 Rewrite(f);
 Writeln(f,Nsm,' smiles');
 Close(f);
End.