open System type Sol() = member this.Solve() = let (S,a,b) = stdin.ReadLine().Split() |> fun ss -> (ss.[0],int ss.[1],int ss.[2]) let mutable ans: char list = [] for i = 0 to ( (Seq.length S) - 1) do if i <> a && i <> b then ( ans <- S.[i] :: ans) let str = new String(List.toArray ans |> Array.rev ) stdout.WriteLine(str) let mySol = new Sol() mySol.Solve()