let divide (numerator : float) (denominator : float) =
  (numerator /. denominator) *. (denominator /. numerator)