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