(* comment ... *)
let factor = if slave then ... else ... in
let sleep_sec = lease_expiration *. factor
might be easier on the brain.