while(1)
$card=gets.chomp.to_s
if $card=="-"
 break
end
num=$card.length#カード枚数を取得
n=gets.to_i #シャッフル回数
for i in 1..n do
h=gets.to_i
#文字列の最初のh文字を最後に
mae=$card[0,h]
ato=$card[h,num]
$card=ato+mae
end
print $card
print"\n"
end
