RosettaCodeData/Task/Function-definition/Tcl/function-definition-1.tcl

proc multiply { arg1 arg2 } {
    return [expr {$arg1 * $arg2}]
}