let () =
    let nums = Scanf.scanf "%d %d %d %d %d" (fun a b c d e -> [|a; b; c; d; e|]) in
    Array.sort (fun a b -> compare b a) nums ;
    Printf.printf "%d %d %d %d %d\n" nums.(0) nums.(1) nums.(2) nums.(3) nums.(4);