Pascal :

var
s:string;
a,t,i:integer;
c:char;
begin
readln(a);
readln(s);
t:=length(s);
for i:=1 to a do
begin
 c:=s[t];
 delete(s,t,1);
 s:=concat(c,s);

end;
writeln(s);
end.