Name: Anonymous 2016-05-10 23:02
This is a tail-recursive naive implementation of factorial for TCL 8.6:
proc fac-tr {n {k 1}} {
if {$n <= 1} {
return $k
} else {
tailcall fac-tr [- $n 1] [* $n $k]
}
}