#include<fstream>
#include<iostream>
#include<vector>
using namespace std;
ifstream fin("trie.in");
ofstream fout("trie.out");
int nrLit='z'-'a'+1;
struct node{
    int cnt;//cate cuvinte "trec"
    int finish;//cate cuvinte se termina pe pozitia crt
    vector<node*>lit;
    
    node(){
        cnt=0;
        finish=0;
        lit.resize(nrLit,nullptr);
    };
};

node* addWord(string &cuv,int poz,node *crt){    

   
    if(crt==nullptr){
        crt=new node();
    }
    crt->cnt++;
    if(poz==cuv.size()){
        crt->finish++;   
        return crt;
    }
    crt->lit[cuv[poz]-'a'] =addWord(cuv,poz+1,crt->lit[cuv[poz]-'a']);
    
    
    return crt;
}
int countWord(string &cuv,int poz,node *crt){
    
    if(crt==nullptr){
        return 0;
    }
    if(poz==cuv.size()){
        return crt->finish;
    }
    return countWord(cuv,poz+1,crt->lit[cuv[poz]-'a']);
}
node* eraseWord(string &cuv,int poz,node *crt){

    crt->cnt--;
    if(crt->cnt==0 ){
        delete crt;
        crt=nullptr;
        return crt;
    }
    
    if(poz==cuv.size()){
        crt->finish--;
        return crt;
    }
    crt->lit[cuv[poz]-'a']=eraseWord(cuv,poz+1,crt->lit[cuv[poz]-'a']);
    
    return crt;
}
int countPrefix(string &cuv,int poz,node *crt){
    if(crt==nullptr){
        return -1; 
    }
    if(poz==cuv.size()){
        return 0;
    }
    return 1+countPrefix(cuv,poz+1,crt->lit[cuv[poz]-'a']);
}
int main(){
    int cer;
    string s;
    node *root=NULL;
    while(fin>>cer>>s){

        if(cer==0){
            root=addWord(s,0,root);

        }else if(cer==1){
            root=eraseWord(s,0,root);
        }else if(cer==2){

            fout<<max(0,countWord(s,0,root))<<"\n";
        }else if(cer==3){

            fout<<max(0,countPrefix(s,0,root))<<"\n";
        }

    }
    return 0;
}