uses crt;
var s,st:string;
k:byte;
procedure reverse(var s:string);
var x:string;
i:byte;
begin
x:='';
for i:=1 to length(s) do
x:=s[i] + x;
s:=x;
end;
begin
clrscr;
readln(st);
readln(k);
s:=copy(st,1,k);
delete(st,1,k);
reverse(s);
reverse(st);
writeln(s,st);
readln;
end.