pan> <span class="mdzsyn-symbol">$y</span> (<span class="mdzsyn-coresym">gensym</span>))
 ~(<span class="mdzsyn-coresym">let</span> [,<span class="mdzsyn-symbol">$x</span> ,<span class="mdzsyn-symbol">x</span>
        ,<span class="mdzsyn-symbol">$y</span> ,<span class="mdzsyn-symbol">y</span>]
    (<span class="mdzsyn-coresym">if</span> (<span class="mdzsyn-coresym">&gt;</span> ,<span class="mdzsyn-symbol">$x</span> ,<span class="mdzsyn-symbol">$y</span>) ,<span class="mdzsyn-symbol">$x</span> ,<span class