languages/tcl/examples/bench.tcl

   1 proc fact { number } {
   2   set val 1
   3   while {$number}  {
   4     set val [expr {$val * $number}]
   5     incr number -1
   6   }
   7   return $val
   8 }
   9
  10 for {set i 0} {$i<500} {incr i} {
  11   set a [fact 10]
  12 }
  13 puts "Factorial of 10 is $a"