Factorial

proc fac {n} {
    if { $n == 0 } {
        return 1
    } else {
        return [expr {$n*[fac [expr {$n-1}]]}]
    }
}
puts "ENTER NUMBER FOR CALCULATE FACTORIAL :"
set a [gets stdin]
set r [expr [fac $a]]
puts $r