Scanf.scanf "%d %d" (fun h w ->
    let a = Array.init (h * w) (fun _ -> Scanf.scanf " %d" (fun a -> a)) in
    Array.sort compare a;
    Array.iteri (fun i v -> Printf.printf "%d " v;
    if i mod w = w - 1 then print_newline ()) a
)