Scanf.scanf "%d" (fun n -> for i = 1 to n do Scanf.scanf " %d" (fun k -> let arr = Array.init k (fun _ -> Scanf.scanf " %d" (fun l -> -l)) in Array.sort compare arr; Array.iter (fun v -> Printf.printf "%d " (-v)) arr ); print_newline () done )