Help for this page
on(red_box, table). on(glove, red_box). on(blue_box, table). on(baseball, blue_box).
?- on(X,Y),on(Y,Z).
gives(ovid,book(learning_perl,[merlyn,rootbeer],publisher(o_reilly),th +ird_edition),grep).