main = interact (\s-> let n = length s in maximum [ take i s ++ [s !! j] ++ drop (i+1) (take j s) ++ [s !! i] ++ drop (j+1) s  | i <- [0..n-1], j <- [i..n-1] ])