Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
 : SQUARE DUP * ;			-- SQUARE ( n -- n^2 )
 : CUBE   DUP SQUARE * ;		-- CUBE   ( n -- n^3 )

 % 2    CON: nasm( 4, "\tdd 2\n");	-- 2      ( -- 2 )

g: DEMO 2 CUBE ; 			-- DEMO   ( -- )