open Unix;;
open Inet;;

(** Récupération des arguments *)
let main () =
  if Array.length Sys.argv <> 2 then
    begin
      prerr_endline ("Usage: "^Sys.argv.(0)^" port");
      exit 1
    end
  else
    try
      establish_concurrent_server
        (treat_connection String.uppercase) (port_of_string Sys.argv.(1))
    with Failure message ->
      prerr_endline message;
      exit 2;;

main ();;