method request (request : http_request) = let sv = call_method sv "request" [request#sv] in new http_response sv