let sl = Str.split (Str.regexp " ") @@ read_line ()
let il = List.map int_of_string sl

(* let ar = Array.of_list il *)

let il' = List.sort (-) il

let rec func = function
    h :: [] -> print_endline @@ string_of_int h
  | h :: l' -> print_string @@ string_of_int h; print_string " "; func l'

let () = func il'