CSTRING PAS

var n,c,i,j,id:longint;
    s,s1:ansistring;
function f(n:longint;s:ansistring):ansistring;
begin
        s1:='';
        for j:=n+1 to length(s) do
            s1:=s1+s[j];
        exit(s1+s);
end;
begin
    assign(input,'cstring.inp');reset(input);
    assign(output,'cstring.out');rewrite(output);
    readln(n,c);
    readln(s);
    for i:=1 to c do
                s:=f(n,s);
    writeln(s);
end.