open String let cut str t u = if t = u then concat "" [sub str 0 t; sub str (t+1) (length str - 1 - t)] else let plus, moin = max t u, min t u in concat "" [sub str 0 moin; sub str (moin + 1) (plus - 1 - moin); sub str (plus + 1) (length str - 1 - plus) ] let () = print_endline @@ Scanf.sscanf (read_line ()) "%s %d %d" cut