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

let solve n k (s:string) =
    if (n - k) % 2 <> 0 then
        s.[k-1 .. ] + s.[ .. k-2]
    else
        s.[k-1 .. ] + (s.[ .. k-2] |> Seq.toList |> Seq.rev |> System.String.Concat)

printfn "%s" <| solve N K S