#include <bits/stdc++.h>
# define endl            '\n'
# define clr(x,a)        memset(x,a,sizeof(x))
# define vi              vector<int>
# define all(a)          a.begin(), a.end()
# define deb(x)          cout<<#x<<"=="<<x<<endl;
# define pb              push_back
# define sc              scanf
# define pr              printf
using namespace std;

typedef long long ll;
const int mxN=1000006, mod=1e9+7, LOG=23;

int fic, fk, k, ic, ar, znaci[150], r1, r2, slovcasajz, rebr, trazenasajz, time1=2300, glob; //active_row, _ == 95
ll price[40],  A, B, M, D, H, n, fscore=1e15, score, prekalkM[500];
string s, fred[35], red[35], imena[10]={"", "cl", "cr", "w", "cd", "push", "pop"}, reci[mxN];
char stek1[105], stek2[105];  //stek1 je stek, stek2 je prvi_red
vector <char> slova;
clock_t vreme;
struct Instructions{
   int x;
   string name;
}fop[mxN], op[mxN], pomop, novoop[mxN];
struct Stamp{
   char slovo;
   int ponavalja;
}slovca[50];
bool cmp_ponavljanja(Stamp x, Stamp y){return x.ponavalja>y.ponavalja;}
void ispisi_tren(){
   cout<<"tren\n";
   cout<<k<<endl;
   for(int i=1; i<=k; i++) cout<<red[i]<<endl;
   cout<<ic<<endl;
   for(int i=1; i<=ic; i++){
      cout<<op[i].name;
      if(op[i].name=="w" || op[i].name=="cd") cout<<" "<<op[i].x<<endl;
      else cout<<"\n";
   }
   cout<<"\n\n";
}
void unos(){
//   freopen("printing_example.in", "r", stdin);
   freopen("printing.in", "r", stdin);

   cin>>n>>s;
   n=s.size();
   bool raz[30];
   clr(raz, 0);
   for(int i=0; i<n; i++){
      if(s[i]!='_' && !raz[s[i]-'a'+1]){
         raz[s[i]-'a'+1]=1;
         slova.pb(s[i]);
      }
   }
   sort(all(slova));
   slova.pb('_');

   cin>> A>> B>> M>> D>> H;
   for(int i=1; i<=250; i++) prekalkM[i]=prekalkM[i-1]+M/i;
   for(int i=1; i<=27; i++) cin>>price[i];
   trazenasajz=-1;
   for(int i=1; i<=100; i++){
      if(prekalkM[2*i+2]-2*M*(i+1)<D-4*i*H-A){
         trazenasajz=i;
         break;
      }
   }
}
void ispis(){
   freopen("printing.out", "w", stdout);
   cout<<fk<<endl;
   for(int i=1; i<=fk; i++) cout<<fred[i]<<endl;
   cout<<fic<<endl;
   for(int i=1; i<=fic; i++){
      cout<<fop[i].name;
      if(fop[i].name=="w" || fop[i].name=="cd") cout<<" "<<fop[i].x<<endl;
      else cout<<"\n";
   }
}
void calculate(){
   score+=price[k];
   if(score<fscore){
      fk=k;
      for(int i=1; i<=fk; i++)
         fred[i]=red[i];
      fscore=score;
      fic=ic;
      for(int i=1; i<=ic; i++)
         fop[i]=op[i];
   }
   ic=0;
   score=0;
}
void add_instruction(int id, int broj){   ///samo srediti, shiftovanje i ispis
   ic++;
   pomop.name=imena[id];
   if(id==4 || id==3) pomop.x=broj;
   op[ic]=pomop;

   if(id==1){  //shift left
      score+=A;

   }
   if(id==2){  //shift right
      score+=B;

   }
   if(id==3){  //stampaj
      if(op[ic-1].name=="w"){
         ic--;
         score-=prekalkM[op[ic].x];
         op[ic].x++;
         score+=prekalkM[op[ic].x];
      }
      else score+=M;
   }
   if(id==4) score+=D;  //menjaj row (cd)
   if(id==5 || id==6) score+=H;  //ovo jos nisam sredio nema potrebe
}
bool findred(char x){
   for(int i=1; i<=r2; i++){
      if(stek2[i]==x) return 1;
   }
   return 0;
}
void pripremi_slova(){     //ovo mi ne treba nigde (za sad)
   while(1){
      if(slova[slova.size()-1]==s[0]) break;
      else{
         slova.insert(slova.begin(), slova[slova.size()-1]);
         slova.erase(slova.begin()+slova.size()-1);
      }
   }
}
void svestack(){
   k=1;
   red[1].clear();
   r2=0;
   r1=0;

   for(int i=0; i<slova.size(); i++){
      red[1].pb(slova[i]);
      r2++;
      stek2[r2]=slova[i];
   }
   reverse(all(red[1]));
   //5-> u stack  --------  6-> u red(iz steka)
   for(int i=0; i<n; i++){
      bool uprvomredu=findred(s[i]);
      if(uprvomredu){   //trazim ga samo u stack2-u   / iz reda u stek
         while(stek2[r2]!=s[i]){
            r1++;
            stek1[r1]=stek2[r2];
            r2--;
            add_instruction(5, -1);
         }
         //nalazi se na r2 u stek2  U REDU, SAD GA SAMO STAMPAM  - stampanje
         add_instruction(3, 1);
         //rotiranje steka
         for(int j=r2-1; j>=1; j--) stek2[j+1]=stek2[j];
         stek2[1]=s[i];
      }
      else{
         while(stek2[r2]!=s[i]){
            r2++;
            stek2[r2]=stek1[r1];
            r1--;
            add_instruction(6, -1);
         }
         //nalazi se na r2 u stek2  U REDU, SAD GA SAMO STAMPAM   - stampanje
         add_instruction(3, 1);
         //rotiranje steka
         char moj=stek2[r2];
         for(int j=r2-1; j>=1; j--) stek2[j+1]=stek2[j];
         stek2[1]=moj;
      }
   }
}
void pocetak(){
   sort(all(slova));
   for(int i=0; i<slova.size(); i++){
      if(slova[i]=='_'){
         slova.erase(slova.begin()+i);
         break;
      }
   }
   for(int i=0; i<slova.size(); i++){
      if(slova[i]==s[0]){
         swap(slova[i], slova[0]);
         break;
      }
   }
   k=slova.size()+1;
   for(int i=1; i<=slova.size(); i++){
      red[i]=slova[i-1];
   }
   red[slova.size()+1]="_";
   int br=1;
   for(int i=0; i<slova.size(); i++){
      znaci[slova[i]]=br;
      br++;
   }
   znaci[95]=slova.size()+1;

   ar=1;
   for(int i=0; i<n; i++){
      int newar=znaci[s[i]];

      if(newar!=ar){
         add_instruction(4, newar);
         ar=newar;
      }
      add_instruction(3, 1);
   }
}
int nadjikojired(char c){
   for(int i=1; i<=k; i++){
      for(int j=0; j<red[i].size(); j++)
         if(red[i][j]==c) return i;
   }
}
void shiftleft(int broj){
   if(red[broj].size()==1) return;
      char c=red[broj][0];
      for(int j=1; j<red[broj].size(); j++)
         red[broj][j-1]=red[broj][j];
      red[broj][red[broj].size()-1]=c;
}
void shiftright(int broj){
   if(red[broj].size()==1) return;
   char c=red[broj][red[broj].size()-1];
   for(int j=red[broj].size()-2; j>=0; j--)
      red[broj][j+1]=red[broj][j];
   red[broj][0]=c;

}
void pripremi(){
   int ar=1, newar, mesto;
   for(int i=0; i<n; i++){
      newar=nadjikojired(s[i]);

      if(newar!=ar){
         add_instruction(4, newar);
         ar=newar;
      }
      for(int j=0; j<red[ar].size(); j++){
         if(red[ar][j]==s[i]){
            mesto=j;
            break;
         }
      }
//      deb(mesto);
      if(A*mesto<(red[ar].size()-mesto)*B){  ///shiftam ulevo
         if(mesto==1 && 2*H<A){
            glob++;
            add_instruction(5, -1);
            add_instruction(3, 1);
            add_instruction(6, -1);
            shiftleft(ar);
            continue;
         }
         else{
            for(int j=1; j<=mesto; j++){
               add_instruction(1, ar);
               shiftleft(ar);
            }
         }
      }

      else{ ///shiftam udesno
         for(int j=1; j<=(red[ar].size()-mesto); j++){
            add_instruction(2, ar);
            shiftright(ar);
         }
      }

      add_instruction(3, 1);
      shiftleft(ar);
   }
}
void od1do27redova(){
//   slova.pb('_');
   for(int i=0; i<n; i++){
      bool imam=0;
      for(int j=1; j<=slovcasajz; j++){
         if(slovca[j].slovo==s[i]){
            slovca[j].ponavalja++;
            imam=1;
            break;
         }
      }
      if(!imam){
         slovcasajz++;
         slovca[slovcasajz].slovo=s[i];
         slovca[slovcasajz].ponavalja=1;
      }
   }
   sort(slovca+1, slovca+1+slovcasajz, cmp_ponavljanja);
   slova.clear();
   for(int i=1; i<=slovcasajz; i++) slova.pb(slovca[i].slovo);

   string noviredovi[40];
   int uksl=slova.size(), br, len;

   for(int test=1; 1; test++){
      for(k=1; k<=slova.size(); k++){
         if(uksl<k) break;
         len=uksl/k;

         br=0;
         for(int i=1; i<k; i++){
            red[i].clear();
            noviredovi[i].clear();
            for(int j=1; j<=len; j++){
               red[i].pb(slova[br]);
               noviredovi[i].pb(slova[br]);
               br++;
            }
         }
         red[k].clear();
         noviredovi[k].clear();
         for( ; br<slova.size(); br++){
            red[k].pb(slova[br]);
            noviredovi[k].pb(slova[br]);
         }

         pripremi();
         for(int i=1; i<=k; i++) red[i]=noviredovi[i];
         calculate();
      }
      if(clock()-vreme>=4500) return;
      shuffle (slova.begin(), slova.end(), default_random_engine(rand()%15000));
   }
}
void nadji_reci(){         //ovo mi ne treba nigde (za sad)
   int pre=0;
   for(int i=0; i<n; i++){
      if(s[i]=='_'){
         rebr++;
         reci[rebr]=s.substr(pre, i-pre);
         pre=i+1;
      }
   }
   rebr++;
   reci[rebr]=s.substr(pre, n-pre);
}

/*
sta treba raditi...
odradidi za svestack a i za pocetak. Kad dodje rec koja je jednaka napravim je. To je otp to
Prvo cemo sve stack. Napravicu jos jedan red, u koji cu da strpam tu cre.
Za "pocetak" cemo videti.
   S T E K   P R E T E E E E Z A A A A K    N E   M O Z E    S T E E E K ! ! !
*/

int main(){
   vreme=clock();
   srand(123456);
   unos();

   for(int i=1; 1; i++){  //svestack
      svestack();
      calculate();
      if(clock()-vreme>=time1) break;
      shuffle(all(slova), default_random_engine(rand()%15000));
   }

   od1do27redova();

   pocetak();
   calculate();

   deb(fscore);
   ispis();

	return 0;
}