* UNDER+ ( n1 n2 -- n1+n2 n2 ) quicker than : UNDER+ TUCK + SWAP ;
UNDER+
( n1 n2 -- n1+n2 n2 )
: UNDER+ TUCK + SWAP ;
misc ordinary primitive