Var i,j,k,m,e:integer;
    h,s,s1:string;
    ch:char;
Begin
    readln(s);
    e:=0;
    m:=0;
    h:=s;
    ch:='a';
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      m:=m+1;
      j:=0;
      For i:=1 to Length(s1) do
       if s1[i]=ch then inc(j);
      if j=3 then  begin inc(k);  writeln(m); e:=e+1; end;
    End;
    if e=0 then writeln('Ошибка ебанная, 3 а нету нихуя, я искал, отвечаю');
    readln;
End.