#! ./mytop
(************************************************************
   easy_server.ml	Created      : Sat Feb 16 03:02:37 2002
  			Last modified: Sat Feb 16 03:21:03 2002
  Compile: make #
************************************************************)

module Unix = UnixLabels;;

let echo (input:in_channel) (output:out_channel) = 
  while true do
    let c = input_char input in
    begin
      output_char stdout c;
      flush stdout;
    end
  done;;

if (Array.length Sys.argv) != 3 then
  print_string "listen [hostname] [port]\n"
else
  let hostname = Sys.argv.(1) in
  let port = int_of_string Sys.argv.(2) in
  let addr = Unix.gethostbyname hostname in
  Unix.establish_server echo ~addr:(Unix.ADDR_INET(addr.Unix.h_addr_list.(0),port));;