+ ((A) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'A-num) name))
+ ((B) ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'B-num) name))
+ ((AB) ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'A-num) name))
+ ((BA) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'B-num) name))
+ ((F) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'A-num) name)
+ ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'B-num) name))
+ ((X) ((core-get B-pointer) 'set-A-num! ((core-get A-pointer) 'B-num) name)
+ ((core-get B-pointer) 'set-B-num! ((core-get A-pointer) 'A-num) name))
+ ((I) ((core-get B-pointer) 'copy-from! (core-get A-pointer) name)))
+ (list (addr+ ptr 1)))