let str = Console.ReadLine()
|> Array.map (fun [|a;b|] -> abs (a - b) , (a,b) )
let min = res |> Array.minBy(fun (x , _) -> x) |> fst
|> Array.filter( fun (x, _) -> x = min)
|> Array.map( fun (_, (a,b)) -> string a + " " + string b)
let solution = readInput >> minDiffPairs
let n = Console.ReadLine()
solution() |> printfn "%s" |> ignore