use strict;

my $roman = 'I';
my $roman2;

while(1) {
  $roman = &inc($roman);
#  print "$roman\n";

  if($roman ne &dec(&inc($roman))) {
    print "MISMATCH for $roman\n";
    print "\t",&inc($roman),"\n";
    print "\t",&dec($roman),"\n";
  }
}