diff --git a/README.md b/README.md
index 2a026f204..2436d5a63 100644
--- a/README.md
+++ b/README.md
@@ -79,7 +79,7 @@ open Lwt
 open Cohttp
 open Cohttp_lwt_unix
 
-let body =
+let main =
   Client.get (Uri.of_string "https://www.reddit.com/") >>= fun (resp, body) ->
   let code = resp |> Response.status |> Code.code_of_status in
   Printf.printf "Response code: %d\n" code;
@@ -89,7 +89,7 @@ let body =
   body
 
 let () =
-  let body = Lwt_main.run body in
+  let body = Lwt_main.run main in
   print_endline ("Received body\n" ^ body)
 ```