let _ =
  let join s lst =
    let rec iter s rst = function
      | [] -> rst
      | hd :: [] -> rst ^ (string_of_int hd)
      | hd :: tl -> iter s (rst ^ (string_of_int hd) ^ s) tl in
    iter s "" lst in
  let lst = Scanf.scanf "%d %d %d %d %d\n" (fun a b c d e -> List.sort (fun x y -> compare y x) [a; b; c; d; e]) in
  print_endline @@ join " " lst