: 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 ( -- )