pub(crate) fn intrinsic_option_price( settlement_price: f64, strike: f64, option_type: &OptionType, ) -> f64