client_request.re

open Lwt;
open Cohttp;
open Cohttp_lwt_unix;
let body = 
 Client.get(Uri.of_string("https://ianwilson.io/")) >>= (resp, body) => {
   let code = resp |> Response.status |> Code.code_of_status;
   let headers = resp |> Response.headers |> Header.to_string;
   Printf.printf("Response code: %d\n", code);
   Printf.printf("Headers: %s\n", headers);
   body |> Cohttp_lwt.Body.to_string >|= (body) => {
     Printf.printf("Body of length: %d\n", (String.length(body));
     body;
   }
 }
   
let () = {
 let body = Lwt_main.run(body);
 print_endline("Received body \n" ++ body);
}