open Printf open Scanf
open Array

let () = scanf " %d %d %s" @@ fun n k s ->
  let a = init n (fun i -> s.[i]) in
  a.(k-1) <-
    String.get
      (String.lowercase_ascii @@
        String.make 1 a.(k-1)) 0;
  iter (print_char) a

