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