#include <iostream>
#include <fstream>

using namespace std;

ifstream f("trie.in");
ofstream g("trie.out");

struct TrieNode
{
    int counter = 0;
    int is_in_words = 0;
    TrieNode *children[30] = { NULL };
};

void Push(TrieNode *&root, string word)
{
    TrieNode *curr = root;
    int len = word.length();

    for (int i = 0; i < len; i++)
    {
        int index = word[i] - 'a';
        if (curr -> children[index] == NULL)
        {
            curr -> children[index] = new TrieNode;
        }
        curr = curr -> children[index];
        curr -> is_in_words++;
    }

    curr -> counter++;
}

void Pop(TrieNode *&root, string word)
{
    TrieNode *curr = root;
    int len = word.length();

    for (int i = 0; i < len; i++)
    {
        int index = word[i] - 'a';
        if (curr -> children[index] == NULL)
        {
            return;
        }
        curr = curr -> children[index];
        curr -> is_in_words--;
    }

    if (curr -> counter > 0)
    {
        curr -> counter--;
    }
}

int NrAp(TrieNode *root, string word)
{
    TrieNode *curr = root;
    int len = word.length();

    for (int i = 0; i < len; i++)
    {
        int index = word[i] - 'a';
        if (curr -> children[index] == NULL)
        {
            return 0;
        }
        curr = curr -> children[index];
    }

    return curr -> counter;
}

int maxPrefixWord(TrieNode *root, string word) {
    TrieNode *node = root;
    int current_size = 0, maximum = 0;
    for(auto c : word) {
        if(node->children[c - 'a'] == NULL) {
            return maximum;
        }
        node = node->children[c - 'a'];
        current_size ++;
        if(node->is_in_words > 0)
            maximum = current_size;
    }
    return maximum;
}

int main()
{
    TrieNode *root = new TrieNode;
    int query;
    while(f >> query) {
        string word;
        f >> word;
        if(query == 0) {
            Push(root, word);
        } else if(query == 1) {
            Pop(root, word);
        } else if(query == 2) {
            g << NrAp(root, word) << '\n';
        } else {
            g << maxPrefixWord(root, word) << '\n';
        }
    }
    return 0;
}