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