REBOL Programming/swap