proc Factorial {x} {
    set result 1
    
      ... FILL IN ...

    return $result
}

set result [Factorial 10]
puts "$result"