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]"
运行结果：
