let
optimal_rate a s c =
let
c = float_of_int c
in
s /. ((1. +. (a *. s *. c)) ** 0.75)