UNDER+
* UNDER+ ( n1 n2 -- n1+n2 n2 )

quicker than
 : UNDER+ TUCK + SWAP ;

misc ordinary primitive