program qbheap;
var a: array [0..15000] of longint;
    c: char;
    n,m: longint;
procedure cong(v: longint);
 var i,max,vt: longint;
 begin
  max:=0;
  for i:=0 to n do
   if (a[i]>=max) and (a[i]<=v) then
    begin
     max:=a[i];
     vt:=i;
     if a[vt]=v then exit;
    end;
  for i:=n downto vt+1 do
   a[i+1]:=a[i];
   a[vt+1]:=v;
  inc(n);
 end;
procedure tru;
 var i,t: longint;
 begin
  i:=n;
  t:=a[n];
  while a[i]=t do
   begin
    a[i]:=0;
    dec(n);
    dec(i);
   end;
 end;
procedure xuat;
 var i: longint;
 begin
  writeln(n);
  for i:=n downto 1 do writeln(a[i]);
 end;
begin
 assign(input,'');
 assign(output,'');
 reset(input);
 rewrite(output);
 n:=0;
 fillchar(a,sizeof(a),0);
 while not eof(input) do
  begin
   read(c);
   if (c='+') and (n<15000) then
    begin
     readln(m);
     cong(m);
    end else if c='-' then tru;
  end;
 xuat;
 close(input);
 close(output);
end.

 
program qbheap;
var a: array [0..40000] of longint;
    c: char;
    v,n: longint;
procedure cong(v: longint);
 var max,i,vt: longint;
 begin
  max:=0;
  for i:=0 to n do
   if (a[i]>=max) and (a[i]<=v) then
    begin
     max:=a[i];
     vt:=i;
     if a[i]=v then exit;
    end;
  for i:=n downto vt+1 do
   a[i+1]:=a[i];
  a[vt+1]:=v;
  inc(n);
 end;
procedure tru;
 var t,i: longint;
 begin
  i:=n;
  t:=a[n];
  while a[i]=t do
   begin
    a[i]:=0;
    dec(n);
    dec(i);
   end;
 end;
procedure xuat;
 var t,i: longint;
 begin
  writeln(n);
  for i:=n downto 1 do
   writeln(a[i]);
 end;
begin
 assign(input,'');
 assign(output,'');
 reset(input);
 rewrite(output);
 n:=0;
 fillchar(a,sizeof(a),0);
 while not eof(input) do
  begin
   read(c);
   if (c='+') and (n<15000) then
    begin
     readln(v);
     cong(v);
    end else if (c='-') and (n>0) then tru;
  end;
 xuat;
 close(input);
 close(output);
end.

procedure tru;
 var i,t: longint;
 begin
  i:=n;
  t:=a[n];
  while a[i]=t do
   begin
    a[i]:=0;
    dec(n);
    dec(i);
   end;
 end;

 
program qbheap;
var a,b: array [0..30000] of longint;
    c: char;
    v: longint;
    n,d: integer;
procedure insert;
 var i,t: integer;
 begin
  inc(n);
  a[n]:=v;
  b[n]:=n;
  for i:=d to n-1 do
   if a[b[i]]=a[n] then
    begin
     a[n]:=0;
     b[n]:=0;
     dec(n);
     exit;
    end else if a[b[i]]<a[n] then
     begin
      t:=b[i];
      b[i]:=b[n];
      b[n]:=t;
     end;
 end;
procedure remove;
 var i: integer;
 begin
  b[d]:=0;
  inc(d);
 end;
procedure xuat;
 var i: integer;
 begin
  writeln(d);
  for i:=d to n do
   writeln(a[b[i]]);
 end;
begin
 assign(input,'');
 assign(output,'');
 reset(input);
 rewrite(output);
 d:=1;
 n:=0;
 fillchar(a,sizeof(a),0);
 while not eof(input) do
  begin
   read(c);
   if (c='+') and (n<15000) then
    begin
     readln(v);
     insert;
    end else if (c='-') and (n>0) then
     begin
      remove;
      readln;
     end;
  end;
 xuat;
 close(input);
 close(output);
end.