for {set i 0} {$i < 14} {incr i 1} {
puts [fact $i]
}