\ Say I have create plural arrays, like the two examples below

CREATE _p A_LGTH ALLOT ALIGN    _p VALUE a_p
CREATE _q A_LGTH ALLOT ALIGN    _q VALUE a_q

\ Then later I fill these arrays with arbitrary values

\ Now, to swap contents of the two above, I could do like so.

a_p a_q TO a_p TO a_q
S" a_p a_q TO a_p TO a_q " EVALUATE

\ Both of which methods work fine but are tied to the two arrays
\ _p inside of value a_p, and
\ _q inside of value a_q

\ But suppose I have a bunch of such arrays: a_r, a_s, a_t, a_u, etc.
\ I'd be wanting a colon-defined word to perform swaps between ANY two.
\ A colon-defined word such as below.

: a.swap ( c-array c-array ) 
  ... unknown code here ...
;

\ Which I would call in a program like below

a_p a_q a.swap 

\ Or as ...

a_t a_u a.swap

\ Which the word a.swap would receive like so...

c-addr c-addr a.swap

\ Now what is needed is for a.swap to somehow identify which two
\ VALUES hold each of those c-addrs, then performing the TO action
\ upon each VALUE

\ I am lost as to how I might define the word a.swap