Hi Team ,

I am new to TCL scripting . could you please tell me what is the mistake i have done in the below prog. I am trying to write program for base power such as 2 power 2 or 3 power 5 etc.

proc Factorial {x y} {
set i 1;
while {$i <= $x} {
set x [expr $x * $i]
incr i
}
return $x
}
puts " [Factorial 2 2]"

The output shows blank . Please assist me here.