RosettaCodeData/Task/Function-definition/Forth/function-definition.fth

3 lines
66 B
Forth

: fmultiply ( F: a b -- F: c ) F* ;
: multiply ( a b -- c ) * ;