program p1013;var s:string; q:char; n,j:integer; procedure main; var i:integer; begin i:=1; while (ord(s[i])<=ord(s[i+1]))and(i
' ' do begin s:=s+q; read(q); end; readln(n); for j:=1 to n do main; writeln(s); until seekeof;end.