Prolog Version of roman_numeral