#include <bits/stdc++.h>

using namespace std;

int c; string s;

struct Trie{
    int nr, nrfii;
    Trie *fii[26];

    Trie(){
        nr = nrfii=0;
        for(int i=0;i<=26;i++) fii[i]=0;
    }
};

Trie *T = new Trie;

void add(Trie *nod, string s, int p){
   if(s[p]==0){
        nod->nr++;
        return;
   }
   else{
        if(nod->fii[s[p]-'a']==0){
            nod->fii[s[p]-'a'] = new Trie;
            nod->nrfii++;
        }
        add(nod->fii[s[p]-'a'], s, p+1);
   }
}

bool rem(Trie *nod, string s, int p){
    if(s[p]==0){
        nod->nr--;
    }
    else if(rem(nod->fii[s[p]-'a'],s,p+1)){
        nod->nrfii--;
        nod->fii[s[p]-'a']=0;
    }
    if(nod->nr==0 && nod->nrfii==0 && nod!=T){
        delete nod; return 1;
    }
    return 0;
}

int qry(Trie *nod, string s, int p){
    if(s[p]==0){
        return nod->nr;
    }
    else{
        if(nod->fii[s[p]-'a']==0) return 0;
        else{
            return qry(nod->fii[s[p]-'a'],s,p+1);
        }
    }
}

int lng(Trie *nod, string s, int p){
    if(s[p]==0){
        return p;
    }
    else{
        if(nod->fii[s[p]-'a']==0) return p;
        else{
            return lng(nod->fii[s[p]-'a'],s,p+1);
        }
    }
}

int main()
{
    ifstream in("trie.in");
    ofstream out("trie.out");
    in >> c >> s;
    while(c>-1){
        if(c==0) add(T,s,0);
        else if(c==1) rem(T,s,0);
        else if(c==2) out << qry(T,s,0) << '\n';
        else if(c==3) out << lng(T,s,0) << '\n';
        c=-1;
        in >> c >> s;
    }
}