RosettaCodeData/Task/Roman-numerals-Encode/Perl-6/roman-numerals-encode-2.pl6

for 1 .. 2_010 -> $x {
    say roman($x);
}