/* $Id: allpairs.pl,v 321.3 2002-03-06 17:49:21-08 - - $ */

/*
* Query pair will return all pairs.
*/

positive(red).
positive(green).
positive(blue).
negative(cyan).
negative(magenta).
negative(yellow).

pair(Pos,Neg) :- positive(Pos), negative(Neg).

allpairs :- pair(Pos,Neg), print( pair(Pos,Neg) ), nl, fail.