type ref=^nod;
nod=record
    fii,nrc:longint;
    v:array['a'..'z'] of ref;
    end;
var rad:ref;
s:string[28];
i:longint;
f,g:text;
procedure fillc(nod:ref);
          var j:longint;
          begin
          nod^.fii:=0;
          nod^.nrc:=0;
          for j:=97 to 122 do
              nod^.v[chr(j)]:=nil;
          end;
procedure add(nod:ref;poz:longint);
          begin
          if poz=length(s)+1 then
             inc(nod^.nrc)
          else
              begin
              if nod^.v[s[poz]]=nil then
                 begin
                 new(nod^.v[s[poz]]);
                 inc(nod^.fii);
                 fillc(nod^.v[s[poz]]);
                 end;
              add(nod^.v[s[poz]],poz+1);
              end;
          end;
procedure delete(nod:ref;poz:longint);
          begin
          if poz=length(s)+1 then
             dec(nod^.nrc)
          else
              begin
              delete(nod^.v[s[poz]],poz+1);
              if (nod^.v[s[poz]]^.nrc=0) and (nod^.v[s[poz]]^.fii=0) then
                 begin
                 dispose(nod^.v[s[poz]]);
                 nod^.v[s[poz]]:=nil;
                 dec(nod^.fii);
                 end;
              end;
          end;
function nr(nod:ref;poz:longint):longint;
         begin
         if poz=length(s)+1 then
            nr:=nod^.nrc
         else
             if nod^.v[s[poz]]=nil then
                nr:=0
             else
                 nr:=nr(nod^.v[s[poz]],poz+1);
         end;
function max(nod:ref;poz:longint):longint;
         begin
         if poz=length(s)+1 then
            max:=length(s)-2
         else
             if nod^.v[s[poz]]<>nil then
                max:=max(nod^.v[s[poz]],poz+1)
             else
                 max:=poz-3;
         end;
begin
assign(f,'trie.in');
assign(g,'trie.out');
reset(f);rewrite(g);
new(rad);
fillc(rad);
while not eof(f) do
      begin
      readln(f,s);
      case s[1] of
           '0':add(rad,3);
           '1':delete(rad,3);
           '2':writeln(g,nr(rad,3));
           '3':writeln(g,max(rad,3));
           end;
      end;
close(f);close(g);
end.