#248 Create a recursive procedure in tcl

An example of a recursive procedure is

proc factorial {number} {
  if {$number <= 1} {
    return 1
  }
  return [expr $number * [factorial [expr $number - 1]]]
}
puts [factorial 5]
puts [factorial 10]

Result:

120
3628800