Tcl模块化

Proc 过程名 参数列表 过程体

示例代码（斐波那契数列）：

proc fib
{num} {

if
{$num<=2} {return 1}

return
[expr [fib [expr $num-1]] + [fib [expr $num-2]]]

}

for {set i 1}
{$i<=20} {incr i} {

puts
"Fibonacci series element $i is: [fib $i]"

}

运行结果：