program html;
uses crt;
var f : text;
    s : string;
procedure darab;
          var g : char;
              i : integer;
              h : boolean;
          begin
               textcolor(15);
               h:=false;
               for i:=1 to length(s) do
                   begin
                        g:=s[i];
                        if g='<' then
                           begin
                                textcolor(14);
                                i:=i+1;
                                g:=s[i];
                           end;
                        if g='=' then h:=true;
                        if g='>' then
                           begin
                                h:=false;
                           end;
                        if (h=false) and (g<>'>') then write(g);
                   end;
               writeln('');
          end;
procedure enteres;
          begin
          end;
procedure mozog;
          var c : char;
          begin
               repeat
                     c:=readkey;

               until c=#13;
               enteres;
          end;
begin
     clrscr;
     assign(f,'haza.dat');
     reset(f);
     while not eof(f) do
           begin
                readln(f,s);
                darab;
           end;
     mozog;
end.