let sort a b c =
  let lst = [a; b; c] in
  let rec ins_sort l res =
    let rec insert a ls = match ls with
        [] -> [a]
      | first :: rest -> if a <= first then a :: first :: rest
                         else first :: (insert a rest)
    in
    match l with
      [] -> res
    | first :: rest -> ins_sort rest (insert first res)
  in
  let rec make_string = function
      [] -> ""
    | [x] -> (string_of_int x) 
    | first :: rest -> (string_of_int first) ^ " " ^(make_string rest)
  in
  print_endline (make_string (ins_sort lst [])) ;;

let f s = Scanf.sscanf s "%d %d %d" sort ;;

f (read_line());;
