Select Code to Download

role Node;

...
my $john = Primative->new(label => "John");
my $fred_and_john = Conjunction->new(left => $fred, right => $john);
...;

my $demorgans_laws = sub
{
...
   
   return $tree;
};