var s,s1:ansistring;
a:array[1..40]of string;
k,i,j:integer;
f1,f2:text;
begin
assign(f1,'j2.txt');
reset(f1);
assign(f2,'pass.txt');
rewrite(f2);
while not eof(f1) do
        begin
        readln(f1,s1);
        s:=s+s1;
        end;

for i:=2 to length(s) do
        begin
        if (s[i-1]='"') and (s[i+1]='"')
                then val(s[i],k);
        if (s[i-1]='"') and (s[i+2]='"')
                then
                        begin
                        s1:=(s[i]+s[i+1]);
                        val(s1,k);
                        end;
        if (s[i-1]='>') and (s[i+1]='<')
                then
                begin
                a[k]:=s[i];
                inc(j);
                end;
        end;
for i:=1 to j do
        write(f2,a[i]);
close(f1);
close(f2);
end.