#!/usr/bin/perl -w

use strict;

use XML::SAX::Machines qw( Machine );
use Language::Flow::Simple::Reader;
use Language::Flow::Simple::Writer;
use Language::Flow::Simple::Chomper;
use Language::Flow::Simple::Counter;
use Language::Flow::Simple::Merger;
use Language::Flow::Simple::Constant;
use Language::Flow::Simple::Sprintf;
use XML::Filter::SAXT;

my $reader = Language::Flow::Simple::Reader->new;
my $writer = Language::Flow::Simple::Writer->new;
my $chomper = Language::Flow::Simple::Chomper->new;
my $counter = Language::Flow::Simple::Counter->new;
my $merger = Language::Flow::Simple::Merger->new;
my $constant = Language::Flow::Simple::Constant->new;
my $sprintf = Language::Flow::Simple::Sprintf->new;
my $merger2 = Language::Flow::Simple::Merger->new;

my $m = Machine ( 
		 [ Intake => $reader => qw( B ) ],
		 [ B => $chomper => qw( T ) ],
		 [ T => XML::Filter::SAXT => qw( N I C ) ],
		 [ C => $counter => qw( D ) ],
		 [ D => $sprintf => qw( M ) ],
		 [ I => $constant => qw( M ) ],
		 [ M => $merger => qw ( N ) ],
		 [ N => $merger2 => qw ( OUT ) ],
		 [ OUT => $writer ]
);

#for ( $m->parts ) { $_->preprocess() };

$m->parse();

#for ( $m->parts ) { $_->postprocess() };