/**
https://youtu.be/qbsvZclUXh8
https://youtu.be/2DaRhiCKGMk
https://youtu.be/X9so0kW2U0U
https://youtu.be/dQw4w9WgXcQ
*/
#include<bits/stdc++.h>
#define endl '\n'
using namespace std;
int n,a,b,m,d,h;
string text;
int price[28];
int used_letter[28];
int pos[28];
int letter[28];
int main()
{
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);
    cout.tie(NULL);
    freopen("printing.in", "r", stdin);
    freopen("printing.out", "w", stdout);
    cin>>n;
    cin>>text;
    for(int i=0; i<n; i++)
    {
        if(text[i] == '_') text[i] = '{';
    }
    cin>>a>>b>>m>>d>>h;
    for(int i=1; i<=27; i++)
    {
        cin>>price[i];
    }
    pos[1] = (text[0]-'a'+1);
    letter[ (text[0]-'a'+1) ] = 1;
    int idx = 2;
    for(int i=1; i<=27; i++)
    {
        if( (text[0]-'a'+1) != i)
        {
            pos[idx] = i;
            letter[i] = idx;
            idx++;
        }
    }
    int active = 1;
    vector< pair<string,int> > procedure;
    for(int i=0; i<n; i++)
    {
        int cur_letter;
        cur_letter = letter[text[i]-'a'+1];
        if(active == cur_letter)
        {
            procedure.push_back({"w",1});
        }
        else
        {
            procedure.push_back({"cd",cur_letter});
            procedure.push_back({"w",1});
            active = cur_letter;
        }
    }
    vector< pair<string,int> > ans;
    ans.push_back(procedure[0]);
    for(int i=1; i<procedure.size(); i++)
    {
        if(ans[ans.size()-1].first == "w" && procedure[i].first == "w")
        {
            ans[ans.size()-1].second++;
        }
        else ans.push_back(procedure[i]);
    }
    cout<<27<<endl;
    for(int i=1; i<=27; i++)
    {
        if((pos[i]+'a'-1) == '{') cout<<'_'<<endl;
        else cout<<((char)(pos[i]+'a'-1))<<endl;
    }
    cout<<ans.size()<<endl;
    for(auto x: ans)
    {
        cout<<x.first<<" "<<x.second<<endl;
    }

}