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