let successful = ref 0 let failed = ref 0 let count_requests inner_handler request = try%lwt let%lwt response = inner_handler request in successful := !successful +1; Lwt.return response with exn -> failed := !failed + 1; raise exn