use Roman;

foreach (1 .. 100)
{
	print "\n$_=".roman($_);
}