% From The Art of Eyepl, Chapter 21.
loop_edge(Node) :- edge(Node, Node).