RosettaCodeData/Task/Documentation/Forth/documentation-2.fth

2 lines
35 B
Forth

: cubed ( n -- n^3 ) dup dup * * ;