* (UNDER+) ( n1 n2 -- n1+n2 n2 ) quicker than : (UNDER+) TUCK + SWAP ; or : (UNDER+) DUP UNDER+ ;
(UNDER+)
( n1 n2 -- n1+n2 n2 )
: (UNDER+) TUCK + SWAP ; or : (UNDER+) DUP UNDER+ ;
FORTH/BASE misc ordinary primitive