program mm;
var lause: string;
    t,s: integer;
begin
writeln('Sisesta lause:');
readln(lause);
t:=0;
for s:=1 to length(lause) do
begin
if copy(lause,s,1)='<' then t:=1;
if copy(lause,s,1)='>' then t:=0;
if (t=0) and (copy(lause,s,1)<>'<') and (copy(lause,s,1)<>'>') then
write(copy(lause,s,1));
end;
readln;
end.