let
of_arabic i =
if
i > 0
then
Ok
i
else
error
"invalid non-positive Roman numeral"
i sexp_of_int