Var S, Pr:String; k, m, c, d, r: Integer;
Begin
 Write ('vvedi text ');
 Readln(S);
 k:=1; m:=0; c:=0; d:=1;
  While k<Length(S) do
   Begin

     While (S[k]<>' ') And (S[k]<>'.') do
      Begin
       If S[k]='a' Then
        m:=m+1;
       k:=k+1;
      end;
   r:=k-d;
    If m>c Then
     Begin
      Pr:=Copy(S,d,r);
      Delete(S,d,r);
      Insert(' ',S,Length(S));
      Insert(Pr,S,Length(S));
      k:=0;
     End;
   k:=k+1;

   d:=k;
    m:=0;
   end;
 Writeln(S);
 Readln
End.