sort.ml

let rec read_ints acc =
    try
        let v = read_int() in
        read_ints (v::acc)
    with
        _ -> List.rev acc

let output_ints = List.iter (fun v ->
    print_int v;
    print_newline())

let main _ = 
    let ps = read_ints [] in
    let start_t = Sys.time() in
    let qs = List.sort compare ps in
    let end_t = Sys.time() in
    Printf.fprintf stderr "Sorting: %.5fs\n" (end_t -. start_t);
    output_ints qs;;


main();;