; 数字をベクタに変換する ex. 981 => #(9 8 1)
(define (number->vector number)
    (let loop ((x number) (ls '()))
        (if (zero? x)
            (list->vector ls)
            (loop (quotient x 10) (cons (modulo x 10) ls)))))

; ベクタをスワップする ex. (vector-swap #(9 8 1) 0 1) => #(8 9 1)
(define (vector-swap! v a b)
    (let ((temp (vector-ref v a)))
        (vector-set! v a (vector-ref v b))
        (vector-set! v b temp)
        v))

; ベクタを数字に変換する ex. #(9 8 1) => 981
(define (vector->number v)
    (let loop ((i 0) (number 0))
        (if (= i (vector-length v))
            number
            (loop (+ i 1)
                  (+ (* 10 number) (vector-ref v i))))))

; 1. 最上位以外において、もっとも大きい数字xを探す
; 2. xが最上位の数より大きい場合はswap
(define (solve n)
    (let ((v (number->vector n)))
        (let loop ((i (- (vector-length v) 1)) 
                   (t (- (vector-length v) 1)))
            (if (zero? i)
                (if (< (vector-ref v i) (vector-ref v t))
                    (vector->number (vector-swap! v i t))
                    (vector->number v))
                (if (> (vector-ref v i) (vector-ref v t))
                    (loop (- i 1) i)
                    (loop (- i 1) t))))))


(define (MAIN)
    (let ((n (read)))
        (display (solve n))
        (newline)))

(MAIN)