#include <bits/stdc++.h>

using namespace std;

ifstream fin("trie.in");
ofstream fout("trie.out");

struct Trie{
    unordered_map<char,Trie*>fiu;
    int EndW,CntP;//final de cuvant si prefix
    bitset<26>lit;
    Trie()
    {
        EndW=CntP=0;
        lit.reset();
    }
};

Trie *T= new Trie;
Trie *r,*rfiu;
Trie* v[21];
char sir[25],c;
int cnt;

int main()
{
    int op;
    while(fin>>op)
    {
        fin>>sir;
        if(op==0){
            r=T;
            int l=strlen(sir);
            for(int i=0;i<l;i++)
            {
                if(!r->lit[int(sir[i]-'a')])
                {
                    r->fiu[sir[i]]=new Trie;
                    r->lit[int(sir[i]-'a')]=1;
                }
                r->CntP++;
                r=r->fiu[sir[i]];
            }
            r->EndW++;
        }
        if(op==1){
            r=T;
            int i,l=strlen(sir);
            for(i=0;i<l;i++)
            {
                r->CntP--;
                v[i]=r;
                r=r->fiu[sir[i]];
            }
            r->EndW--;
            v[i]=r;
            for(int j=l,i=l-1;;i--,j--)
            {
                if(v[j]->EndW!=0 || v[j]->CntP!=0 || v[j]==T)break;
                r=v[j];
                v[i]->lit[sir[i]-'a']=0;
                delete r;
            }
            memset(v,0,sizeof(v));
        }
        if(op==2){
            r=T;
            int l=strlen(sir);
            int i;
            for(i=0;i<l;i++)
            {
                if(!r->lit[int(sir[i]-'a')])break;
                r=r->fiu[sir[i]];
            }
            if(i<l)fout<<"0\n";
            else fout<<r->EndW<<'\n';
        }
        if(op==3)
        {
            r=T;
            int i,l=strlen(sir);
            for(i=0;i<l;i++)
            {
                if(!r->lit[int(sir[i]-'a')])break;
                r=r->fiu[sir[i]];
            }
            fout<<i<<'\n';
        }
    }
    return 0;
}