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")