/********** Oblate(A, Topology). Given the top-level object A, finds it's hierarchy (item with multiple items att ached to it). Oblates help people keep on the right path. Oblates interpret single objects as being composed of multiple objects to help people deal with them in the right way and keep on the right path. They examine the objects in the same way that God helps us see multiple (pedagogical/Aig or monastic's A-grade essay-like/correctness-concerned) objects when we meditate on the (meditation/single-pointed/do meditation each day) mantra. Our brain interprets lists of relations we see as a developed topology based on these relations, e.g. we are helped to the right path because of navigating toplogical hierarchies of circles and points. ?- oblate(a, Topology). Topology = [a, [[b, [d, e]], c]] ; **********/ in(b, a). in(d, b). in(e, b). in(null, d). in(null, e). in(c, a). in(null, c). oblate(A, A) :- in(null, A). oblate(A, Topology1) :- in(B, A), in(C, A), not(B = C), !, oblate(B, Topology2), oblate(C, Topology3), Topology1 = [A, [Topology2, Topology3]].