Select Code to Download

     use strict;
     use AI::Proplog;
...
     my $R = $p->bottom_up('basic_cs');
    # or:  my $R = $p->top_down('basic_cs');
     ok($R);

        $p->a( x => 'y' );
        $p->a( y => 'x' );

     # there is a 0.6 chance that a souffle rises is beaten well and i
+t is quie\
t
...
        $p->apl( qw(use_whisk kids_outside) );

     $p->top_down('souffle_rise')