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