请教大虾··关于NS··流程控制语句均出现错误

例如while程序：

#!/usr/bin/tclsh
puts -nonewline "Please input a number:"
flush stdout;
set x [gets stdin]
set i 1
set j 0
while{$i<$x}{
set j [expr $j+$i]
incr i
}
puts $j

执行程序后结果如下：

Please input a number:9
invalid command name "while{1<9}{"
    while executing
"while{$i<$x}{"
    (file "./whiletest.tcl" line 7)

for循环的条件，if语句的条件，均是这种错误，肿么回事的，哪里有问题啊。。。急急急！！！

for循环：

#!/usr/bin/tclsh
puts -nonewline "Please input a number:"
flush stdout;
set x [gets stdin]
set j 0
for {set i 0} {$i<$x} {incr i}
{
if($i==11)
continue;
set j [expr $j+$i]
}
puts $j

结果：

Please input a number:9
wrong # args: should be "for start test next command"
    while executing
"for {set i 0} {$i<$x} {incr i}"
    (file "./continuetest.tcl" line 6)