(use srfi-43)
(let* ((s (string->vector (read-line)))
       (l (map string->number (string-split (read-line) " ")))
       (i (car l))
       (j (cadr l)))
      (print (begin (vector-swap! s i j)
                    (vector->string s))))