let value_exn o ~msg =     match o with     | Some o -> o     | None -> raise (No_value msg)