<span class="mdzsyn-coresym">var</span> <span class="mdzsyn-symbol">i</span> <span class="mdzsyn-number">100</span>)
(<span class="mdzsyn-coresym">while</span> (<span class="mdzsyn-coresym">pos?</span> <span class="mdzsyn-symbol">i</span>)
  (<span class="mdzsyn-coresym">print</span> <span class="mdzsyn-string">"the number is "</span> <span class="mdzsyn-symbol">i</span>)
  (<span class="mdzsyn-coresym">--</span> <span class="mdzsyn-symbol">i</span>))

<span class="mdzsyn-comment"># Print ... until a random