Pervasives.in_channel -> Http_types.request