// bits  10987654 32109876 54321098 76543210
// data  DDDDDDDD DDDDDDDD LLLLLLLL CCCCCCCC
// CCCCCCCC = input char
// LLLLLLLL = number of saved ciphers or 255 if wrong sequence found
// DDDDDDDD DDDDDDDD = two saved letters or 10 digit flags

var
  d: cardinal;
begin;
  d:=0;
  while true do begin;
    Read(pchar(@d)^);                                                //read data to the low byte
    case chr(d) of
      '0'..'9': begin;                                               //digit input
        d:=d-ord('0');                                               //decrement digit base
        if d and $FF00=0 then while d and $FFFF0000<>0 do begin;     //flush saved chars
          write(chr(d shr 16));
          d:=d and $FFFF or d shr 8 and $00FF0000;
          end;
        if d and $FF00=$FF00 then {nothing}                          //skip wrong digit sequence
        else if d>=1 shl (d and $FF + 16) then d:=d or $FF00         //wrong digit sequence found
        else d:=d or 1 shl (d and $FF + 16) + $100;                  //save digit and increment counter
        end;
      else begin;                                                    //non-digit input
        if d and $FF00<>0 then begin;                                //digits in buffer
          if (d and $FF00>$100) and (d and $FF00<$FF00) then begin;  //valid counter - flush digits
            d:=d and $FFFF00FF;
            while d and $FFFF0000<>0 do begin;
              if d and $10000<>0 then write(chr(d shr 8 and $FF + ord('0')));
              d:=d shr 1 and $FFFF0000 or d and $FFFF + $100;
              end;
            end;
          d:=d and $FF;
          end;
        if (chr(d)<>'t') and (chr(d)<>'h') and (chr(d)<>'e')         //not our char
        or (chr(d shr 16)=chr(d))                                    //or our char matched with the first char
        or (chr(d shr 24)=chr(d)) then begin;                        //or our char matched with the second char
          while d and $FFFF0000<>0 do begin;                         //flush saved chars
            write(chr(d shr 16));
            d:=d and $FFFF or d shr 8 and $00FF0000;
            end;
          if (chr(d)<>'t') and (chr(d)<>'h') and (chr(d)<>'e') then begin; //not our char
            write(chr(d));
            if chr(d)='.' then break;
            d:=0;
            end
          else d:=d and $FF shl 16;
          end
        else if d and $FF0000=0 then d:=d and $FF shl 16             //save our char as the first char
        else if d and $FF000000=0 then d:=d and $FF0000 or d and $FF shl 24 //as the second char
        else d:=0;                                                   //eat 3 our chars
        end;
      end; //case
    end;
  Readln; //debug
  Readln; //debug
  end.

type
  TRecord= packed record
    C: char;                  //input char
    L: byte;                  //number of saved digits or 255 if wrong sequence found
    case boolean of
      true: (W: word);        //10 digit flags
      false: (D1, D2: char);  //two saved letters
    end;

var
  R: TRecord;
begin;
  FillChar(R, SizeOf(R), 0);
  with R do while true do begin;
    Read(C);                                                       //read data to the low byte
    if ('0'<=C) and (C<='9') then begin;                           //digit input
      dec(C, ord('0'));                                            //decrement digit base
      if L=0 then while D1<>#0 do begin;                           //flush saved chars
        write(D1);
        D1:=D2;
        D2:=#0;
        end;
      if L=255 then {nothing}                                      //skip wrong digit sequence
      else if W>=1 shl byte(C) then L:=255                         //wrong digit sequence found
      else begin;                                                  //save digit and increment counter
        W:=W or 1 shl byte(C);
        inc(L);
        end;
      end
    else begin;                                                    //non-digit input
      if L<>0 then begin;                                          //digits in buffer
        if (1<L) and (L<255) then begin;                           //valid counter - flush digits
          L:=0;
          while W<>0 do begin;
            if W and 1<>0 then write(chr(L + ord('0')));
            W:=W shr 1;
            inc(L);
            end;
          end;
        W:=0;
        L:=0;
        end;
      if (C<>'t') and (C<>'h') and (C<>'e')                        //not our char
      or (C=D1)                                                    //or our char matched with the first char
      or (C=D2) then begin;                                        //or our char matched with the second char
        while D1<>#0 do begin;                                     //flush saved chars
          Write(D1);
          D1:=D2;
          D2:=#0;
          end;
        if (C<>'t') and (C<>'h') and (C<>'e') then begin;          //not our char
          write(C);
          if C='.' then break;
          end
        else D1:=C;                                                //save our char as the first char
        end
      else if D1=#0 then D1:=C                                     //save our char as the first char
      else if D2=#0 then D2:=C                                     //as the second char
      else begin;                                                  //eat 3 our chars
        D1:=#0;
        D2:=#0;
        end;
      end;
    end;
  Readln; //debug
  Readln; //debug
  end.