#include <bits/stdc++.h>

using namespace std;

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

struct nod_TRIE
{
    int is_last_leter,sons;
    nod_TRIE *next_leter[26];
    nod_TRIE()
    {
        sons=is_last_leter=0;
        for(int i=0;i<26;i++)
            next_leter[i]=0;
    }
};

nod_TRIE T;
nod_TRIE *root;

void Add_TRIE(string s,int i,nod_TRIE* x)
{
    int ch= s[i]-'a';
    if( i==s.size() )
    {
        x->is_last_leter++;
        return;
    }
    x->sons++;
    if( !x->next_leter[ch] )
    {
        x->next_leter[ch]= new nod_TRIE();
    }
    Add_TRIE(s,i+1,x->next_leter[ch]);
}

bool Delete_TRIE(string s,int i,nod_TRIE* x)
{
/// 1 del
    int ch= s[i]-'a';
    if( i==s.size() )
    {
        x->is_last_leter--;
    }
    else if( Delete_TRIE(s,i+1,x->next_leter[ch]) )
    {
        x->sons--;
        x->next_leter[ch]=0;
    }
    if( !x->sons and !x->is_last_leter and x!=root )
    {
        delete x;
        return 1;
    }
    return 0;
}

int How_manny(string s,int i,nod_TRIE* x)
{
    if( i==s.size() )return x->is_last_leter;
    int ch=s[i]-'a';
    if( x->next_leter[ch] )
        return How_manny( s,i+1,x->next_leter[ch] );
    else return 0;
}
//
//int Longest_Prefix(string s,int i,nod_TRIE* x)
//{
//    if( i==s.size() )return x->is_last_leter;
//    int ch=s[i]-'a';
//    if( x->next_leter[ch] )
//        return How_manny( s,i+1,x->next_leter[ch] );
//    else return 0;
//}

int main()
{
    root= &T;
    int task;
    while(fin >> task)
    {
        string s;
        fin >> s;
        if( task==0 )
            Add_TRIE(s,0,root);
        if( task==1 )
            Delete_TRIE(s,0,root);
        if( task==2 )
            fout << How_manny(s,0,root) << "\n";
//        if( task==3 )
//            fout << Longest_Prefix(s,0,root) << "\n";
    }


    return 0;
}