let ``No.750 Frac #1``() =

  let n  = stdin.ReadLine() |> int
  [1..n]
  |> List.map (fun i ->
     stdin.ReadLine().Split(' ') 
    |> fun args -> args.[0] |>int , args.[1] |>int
  )
  |> List.sortByDescending (fun (a, b) ->  ( float a/ float b)) 
  |> List.iter (fun (a,b) -> string a + " " + string b |> stdout.WriteLine  )

  ()
``No.750 Frac #1``()