use strict;
use Mob;
use Speaker;
use Speach::Persuasion qw(demagoguery bribery);


my $me  = new Speaker("Antony");
my $you = new Mob;

$me->setListeners($you)
$me->invoke("Friends, Romans, Countrymen!");

$you->ears()->lend($me);

$me->statePurpose('bury Caesar' => 1,
                  'praise him'  => 0
                  );
[download]

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders