uses crt;
var count,k:integer;
st,buf:string;
begin
k:=0;
clrscr;
readln(st);
repeat
if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
else
begin
while (st[1]<>' ') and (length(st)>0) do
begin
buf:=buf+st[1];
delete(st,1,1);
end;
if buf='тина' then inc(k);
buf:='';
end;
until (length(st)=0) and (length(buf)=0);
writeln(k);
readln;
end.