let of_int_exn i =
  if i > 0 then
    roman i
  else
    raise_bad (sprintf "cannot convert int %d to roman numeral" i)