Select Code to Download

steals(PERP, STUFF) :-
    thief(PERP),
    valuable(STUFF),
...
owns(merlyn,gold).
owns(ovid,rubies).
knows(badguy,merlyn).

#!/usr/local/bin/perl
use strict;
use warnings;
...
while(swi_next) {
    print swi_var(STUFF), $/;
}