let root req = let uri = Request.uri req in let name = Uri.get_query_param uri "name" in let name = Option.value name ~default:"world" in Server.respond_with_string ("hello, " ^ name ^ "\n")