Select Code to Download

owns( merlyn, gold ).
owns( ovid, pocketLint ).
...
steals_from( X, Y ) :-
  thief( X ),
  rich( Y ).

badguy will steal from merlyn
badguy will not steal from ovid
badguy will steal from kudra

#!/usr/bin/perl -w
use strict;
...
  }
  return \@rule;
}

(?(?{attack $q [3], $q [4]})x|)