WHILE cond-block body-block
当条件块为 TRUE 时,评估另一个块。
WHILE 是一个原生值。
while: native[ {While a condition block is TRUE, evaluates another block.} cond-block [block!] body-block [block!] ]