if (!Array.prototype.push) {
		/* IE < 5.5 lacks Array.push() */
		Array.prototype.push=function(arg) {
			/* this is only the minimum required for map, push should accept more than one parameter */
			this[this.length]=arg;
			return this.length;
		}
	}

	/*** Bootstrap Perl ;-) ***/

	Array.prototype.foreach=function(callback) {
		/*
			* callback is called with a single argument, the current array element
			* callback return value is ignored
			* returns nothing
		*/
		for (var i=0; i<this.length; i++) {
			callback(this[i]);
		}
	};

	Array.prototype.map=function(callback) {
		/*
			* callback is called with a single argument, the current array element
			* callback returns an array of zero or more values
			* returns a new array of all callback return values
		*/
		var rv=new Array();
		this.foreach(function(x) {
			callback(x).foreach(function(y) {
				rv.push(y);
			});
		});
		return rv;
	};
	
	/*** List::Utils ***/
	
	Array.prototype.reduce=function(callback) {
		/*
			* callback is called with two arguments, its last return value
			  (initially the first array element) and the next array element
			* callback returns a single value used for the next iteration
			* callback is not called when array contains less than two elements
		*/
		if (this.length==0) return null;
		var rv=this[0];
		for (var i=1; i<this.length; i++) {
			rv=callback(rv,this[i]);
		}
		return rv;
	};

	/*** The real code ***/

	roman_to_dec=(function(){
		var rtoa={ M:1000, D:500, C:100, L:50, X:10, V:5, I:1 };
		return function(str) {
			return str.toUpperCase().split('').map(function(_){
				return [ rtoa[_] ];
			}).reduce(function(a,b) {
				return a+b-a%b*2;
			});
		};
	})();
		
	function main() {
		var testdata=["XLII", "LXIX", "mi"];
		alert(
			testdata.map(function(_){
				return [ _ + ": " + roman_to_dec(_) + "\n" ];
			}).join("")
		);
	};