let argspec =
[ "-p", Arg.Int (fun p -> port := p),
"TCP port on which listen, default: " ^ string_of_int !port;
"-a", Arg.String (fun a -> addr := a),
"IP address on which listen, default: " ^ !addr;
"-r", Arg.String (fun r -> root := r),
let argspec =
[ "-p", Arg.Int (fun p -> port := p),
"TCP port on which listen, default: " ^ string_of_int !port;
"-a", Arg.String (fun a -> addr := a),
"IP address on which listen, default: " ^ !addr;
"-r", Arg.String (fun r -> root := r),