9 lines
191 B
Tcl
9 lines
191 B
Tcl
|
proc tcl::mathfunc::multiply {arg1 arg2} {
|
||
|
|
return [expr {$arg1 * $arg2}]
|
||
|
|
}
|
||
|
|
|
||
|
|
# Demonstrating...
|
||
|
|
if {multiply(6, 9) == 42} {
|
||
|
|
puts "Welcome, Citizens of Golgafrincham from the B-Ark!"
|
||
|
|
}
|