let()=
  let list = Scanf.sscanf (read_line()) "%d %d %d" (fun a b c -> a::b::c::[]) in
  let sorted_list = List.sort (fun a b -> a-b) list in
  let rec print_list li =
    match li with
    |[] -> print_string "\n";
    |h::t -> print_int h; if t <> [] then print_string " "; print_list t;
  in
  print_list sorted_list
;;
