let
is_pos_num a =
try
let
q = d_num a
in
Mpa
.
Q
.is_pos q
with
Not_found
->
false