include lib/ntor.4th
include lib/ttester.4th

: TNR1 N>R SWAP NR> [FORCE] ;
T{ 1 2 10 20 30 3 TNR1 => 2 1 10 20 30 3 }T

: TNR2 N>R N>R SWAP NR> NR> [FORCE] ;
T{ 1 2 10 20 30 3 40 50 2 TNR2 => 2 1 10 20 30 3 40 50 2 }T