let
of_string s =
try
Some
(float_of_string s)
with
_
->
None