two-star:core — ordinary primitive
FORTH
2*
( a -- a*2 )();
p4:"two-star";
multiplies the value with two - but it does actually use a shift1 to be faster
simulate: : 2* 2 * ; ( canonic) : 2* 1 LSHIFT ; ( usual)
dpANS .6.1.0320 - standard forth word