<> (?x dup) (?x ?x) <> (?x ?y swap) (?y ?x) ((A B swap) dup)