#!/usr/bin/perl

use Roman;
use Interpolation SPQR => \&Roman::i2r;

print "IX + IX = $SPQR{$IX + $IX}\n";

print "XI * IV = $SPQR{$XI * $IV}\n";

print "II ** X = $SPQR{$II ** $X}\n";

print "M - I = $SPQR{$M-$I}\n";

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