let solve n (a_arr: array) = let rec solve' i = if i >= 2 * n - 3 then () else seq {0..i} |> Seq.iter (fun p -> let q = i - p if 0 <= p && p < q && q <= n - 1 && a_arr.[p] > a_arr.[q] then let t = a_arr.[p] a_arr.[p] <- a_arr.[q] a_arr.[q] <- t) solve' (i + 1) solve' 1 a_arr let () = let n = stdin.ReadLine() |> int let a_arr = stdin.ReadLine().Split() |> Array.map int solve n a_arr |> Array.map string |> String.concat " " |> printfn "%s"