( @check 20 )

variable  temporary

: myswap   >r temporary ! r> temporary @ ;

20 0 myswap print if then