VAR
 S,C:String;
 i,j,N,k,p:Byte;
 Ch:Char;
BEGIN
 Writeln('Enter the string');
 Readln(S);
 C:='';
 For i:=1 to Length(S) do
  begin
   N:=0;
   Ch:=S[i];
   for j:=i to Length(S) do
    if S[j]=Ch then Inc(N);
   If (N>3) and (Ch<>'*') then
    begin
     p:=Pos(Ch,C);
     If p=0 then
      begin
       C:=C+Ch;
       for k:=1 to 3 do
        begin
         j:=Pos(Ch,S);
         Delete(S,j,1);
         if k=1 then Insert('$',S,j) else Insert('*',S,j);
        end;
       j:=Pos('$',S);
       Delete(S,j,1);
       Insert(Ch,S,j);
      end;
    end;
  end;
 Writeln(S);
 Readln
END.