Task

Create a function taking a positive integer as its parameter and returning a string containing the Roman numeral representation of that integer. Modern Roman numerals are written by expressing each digit separately, starting with the left most digit and skipping any digit with a value of zero.



In Roman numerals:

 1990 is rendered: 1000=M, 900=CM, 90=XC; resulting in MCMXC
 2008 is written as 2000=MM, 8=VIII; or MMVIII
 1666 uses each Roman symbol in descending order: MDCLXVI


function RomanNumeralsEncode number
	put [
		(1, "I"),
		(4, "IV"),
		(5, "V"),
		(9, "IX"),
		(10, "X"),
		(40, "XL"),
		(50, "L"),
		(90, "XC"),
		(100, "C"),
		(400, "CD"),
		(500, "D"),
		(900, "CM"),
		(1000, "M")
	] into values
 
 
	repeat for index = each item of (the number of items in values)..1
		put item index of values into pair
		repeat while number is greater than or equal to the first item of pair
			put the second item of pair after numerals
			subtract the first item of pair from number
		end repeat
	end repeat
	return numerals
end RomanNumeralsEncode