################################################################ # proc factorial {num}-- # Return the factorial of a number # Arguments # num Value to calculate the factorial of # # Results # No side effects # proc double_factorial {num} { if {$num <= 1} {return 1} return [expr $num * [double_factorial [expr {$num-2}]]] } puts "DBL Factorial of $argv is: [double_factorial $argv]"