prologCGData((23, John, "John is the Hero", true, "ImgPrlg.gif", (iccs, 2000), book(John, KR, 2000), fifi, fafa, [Write] - -obj->[Book]-attr->[New], -agnt->[Man : John])). dataExple(x) :- prologCGData(D), member(x, D). data(true). data(true, false).