let R() = stdin.ReadLine() let swapStr (str:string) a b = let i = min a b let j = max a b let l = str.Length str.[0 .. i-1] + str.[j .. j] + str.[i+1 .. j-1] + str.[i .. i ] + str.[j+1 .. l-1] let str = R() let i,j = let t = R().Split() |> Array.map int in t.[0], t.[1] swapStr str i j |> stdout.WriteLine