{{{#!highlight haskell
#include<stdio.h>
#include<string.h>
int main(){

int m,h,i,j,length;
char card[1000],result[1000];

while(1){
  scanf("%s",card); if(card[0]=='-') break;
  length=strlen(card);
  scanf("%d",&m);
  for(i=0;i<m;i++){
    scanf("%d",&h);
    strncat(card,card,h);
    for(j=0;j<length;j++){
      result[j]=card[j+h];
    }
    result[length]='\0';
    strcpy(card,result);
  }
  printf("%s\n",card);
}

return(0);
}
}}}