let
is_num a =
try
let
_ = d_num a
in
true
with
Not_found
->
false