#!/usr/bin/perl

while (<STDIN>) {
	my($line) = $_;
	chomp( $line );

	if ($line !~ /^#/) {
		if ($line =~ /^\*(.*)/) {
			$table = $1;
		} 
		elsif ($line =~ /^\:(.*) (ACCEPT|DROP)/) {
			print "iptables -t ", $table, " -P ", $1, " ", $2, "\n";
		} 
		elsif ($line =~ /^\:(.*?)\s/) {
			print "iptables -t ", $table, " -N ", $1, "\n";
		}
		elsif ($line !~ /^COMMIT/ ) {
			print "iptables -t ", $table, " ", $line, "\n";
		} else {
			print "\n\n";
		}
		
	} else {
		print $line, "\n";
	}
	
}