proc multiply { a b args } {

    set product 1

    foreach m [list $a $b {*}$args] {

	    set product [expr {$product * $m}]
    }

    return $product
}

puts stdout [multiply  3 4 7 9 -2 -5 ]