letter

uses crt;
var
  f:text;
  str:string;
  k:longint;

procedure readfile();
begin
  assign(f,'letter.inp');
  reset(f);
  readln(f,str);
  read(f,k);
  close(f);
end;

procedure writefile();
begin
  assign(f,'letter.out');
  rewrite(f);
  write(f,str);
  close(f);
end;

procedure swap(x,y:longint);
var strtmp:char;
begin
  strtmp:=str[x];
  str[x]:=str[y];
  str[y]:=strtmp;
end;

procedure solve();
var i,n:longint;
begin
  readfile();
  n:=length(str);
  for i:=1 to k div 2 do swap(i,k-i+1);
  for i:=k+1 to (n+k) div 2 do swap(i,n-i+k+1);
  writefile();
end;

begin
  clrscr();
  solve();
end.