Scanf.scanf "%s %d %d" (fun s i j ->
    String.mapi (fun p c ->
        if p = i then s.[j] else
            if p = j then s.[i] else c) s |> print_endline
)