Scanf.scanf "%d" (fun n ->
    let a = Array.init n (fun _ -> Scanf.scanf " %d" (fun a -> a)) in
    for i = 1 to 2 * n - 4 do
        for p = 0 to i do
            let q = i - p in
            if p < q && q <= n - 1 then (
                if a.(p) > a.(q) then (
                    let t = a.(p) in
                    a.(p) <- a.(q);
                    a.(q) <- t
                )
            )
        done
    done;
    Array.iter (Printf.printf "%d ") a;
    print_newline ()
)