#!/usr/bin/perl

use NAT::PatternRules;
use Data::Dumper;

my $t = NAT::PatternRules->parseFile();


#$t -> Dump;


for my $m (@$t) {
  my $mat = $m->matrix;

  print "Rule name: ",$m->name,"\n";
  print " ",$m->asString, "\n";
  $m->matrix_dump($mat);
  print Dumper($m->text_rules($mat));

  print "\n"
}