let roman s = of_string s |! to_roman