RosettaCodeData/Task/First-class-functions-Use-numbers-analogously/Tcl/first-class-functions-use-numbers-analogously-1.tcl

package require Tcl 8.5
proc multiplier {a b} {
    list apply {{ab m} {expr {$ab*$m}}} [expr {$a*$b}]
}