RosettaCodeData/Task/Factorial/Tcl/factorial-3.tcl

proc rfact n {
    expr {$n < 2 ? 1 : $n * [rfact [incr n -1]]}
}