#!/usr/bin/perl

use Roman;

print "IX + IX = ", $IX + $IX, "\n";

print "XI * IV = ", $XI * $IV, "\n";

print "II ** X = ", $II ** $X, "\n";

print "M - I = ", $M-$I, "\n";

print "Powers of II:\n";
for ($p = $I; $p < $CLVI; $p *= $II) {
  print "\t", $p, "\n";
}