#include <fstream>
#include <cstring>

using namespace std;

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

struct trie {
    int cnt;
    int nfii;

    trie* urm[30];

    trie() {
        cnt = nfii = 0;
        memset(urm, 0, sizeof(urm));
    }
};

trie *inc = new trie;
char s[30];

void add(char *s, trie *t) {
    int k;
    while (*s != 0) {
        k = *s - 'a';
        if (t -> urm[k] == 0)
            t -> urm[k] = new trie, t -> nfii++;
        t = t -> urm[k];
        s++;
    }
    t -> cnt++;
}

int apar(char *s, trie *t) {
    if (*s == 0)
        return t -> cnt;
    else if (t -> urm[*s-'a'] != 0)
        return apar(s+1, t -> urm[*s-'a']);
    return 0;
}

int lung(char *s, trie *t, int K) {
    if (*s == 0 || t -> urm[*s-'a'] == 0)
        return K;
    return lung(s+1, t -> urm[*s-'a'], K+1);
}

bool Delete(char *s, trie *t) {
    if (s == 0 || t -> cnt > 0)
        t -> cnt--;
    else if (t -> urm[*s-'a'] != 0 && Delete(s+1, t -> urm[*s-'a']) )
        t -> nfii--, t -> urm[*s-'a'] = 0;
    if (t -> nfii == 0 && t -> cnt == 0 && t != inc) {
        delete t;
        return 1;
    }
    return 0;
}


int main() {
    while (f.getline(s, sizeof(s))) {
        if (s[0] == '0') add(s+2, inc);
        else if (s[0] == '1') Delete(s+2, inc);
        else if (s[0] == '2') g << apar(s+2, inc) << '\n';
        else if (s[0] == '3') g << lung(s+2, inc, 0) << '\n';
    }

    return 0;
}