let n = stdin.ReadLine().Trim() |> int let a = stdin.ReadLine().Split(' ') |> Array.map int for i in 1 .. 2*n - 4 do for p in 0 .. n-1 do let q = i - p if p < q && q >= 0 && q < a.Length && a.[p] > a.[q] then let temp = a.[p] a.[p] <- a.[q] a.[q] <- temp printfn "%s" <| String.concat " " (a |> Array.map string)