WHILE cond-block body-block
當條件塊為 TRUE 時,評估另一個塊。
WHILE 是一個原生值。
while: native[ {While a condition block is TRUE, evaluates another block.} cond-block [block!] body-block [block!] ]