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

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