#!/usr/bin/perl -w
use strict;
use lib qw(../blib/lib ./blib/lib);
use Algorithm::MarkovChain;
use Data::Dumper qw/DumperX/;
my $a = Algorithm::MarkovChain::->new();
print join("\n", $a->spew(), '');
#!/usr/bin/perl -w
use strict;
use lib qw(../blib/lib ./blib/lib);
use Algorithm::MarkovChain;
use Data::Dumper qw/DumperX/;
my $a = Algorithm::MarkovChain::->new();
print join("\n", $a->spew(), '');