TUCK TRUE TYPE
TUCK ( a b -- b a b )  
ansi .6.2.2300 <CORE>
shove the top-value under the value beneath. See OVER and NIP 
 simulate:    : TUCK  SWAP OVER ;

reference: p4_tuck in ../src/core.c:2450, export CO TUCK