# define function to compute Factorial X!
proc Factorial {x} {
    # define variable
    set result 1
    
    # for loop
    for {set i 1} {$i <= $x} {incr i} {
	set result [expr $result * $i]
    }
    
    # return computation result
    return $result
}

# define function to compute 2^x
proc 2pow {x} {
    # define variable
    set result 1
    
    # for loop
    for {set i 1} {$i <= $x} {incr i} {
	# fill in here
    }
    
    # return computation result
    return $result
}
# make function call
set result [Factorial 10]

# output result
puts "$result"

# make function call
set result [2pow 10]

# output result
puts "$result"