let [| N; K |] = stdin.ReadLine().Split(' ') |> Array.map int
let S = stdin.ReadLine().Trim()

let reverse i j (s:string) =
    let s2 = s.[i..j] |> Seq.toList |> Seq.rev |> System.String.Concat
    let max = s.Length
    let r1 = s.[0..i-1]
    let r2 = s.[j+1 ..]
    r1 + s2 + r2

let mutable r = S
for i in 1 .. (N-K+1) do
    r <- reverse (i-1) (i+K-2) r

printfn "%s" r