ali@0: <expr>
ali@0:   <define name="x">1</define>
ali@0:   <define name=".product" args="a b c d">
ali@0:     <add>
ali@0:       <multiply>
ali@0: 	<a/>
ali@0: 	<b/>
ali@0:       </multiply>
ali@0:       <multiply>
ali@0: 	<c/>
ali@0: 	<d/>
ali@0:       </multiply>
ali@0:     </add>
ali@0:   </define>
ali@0: 
ali@0:   <and>
ali@0:     <if>
ali@0:       <eq>
ali@0: 	<get name="x"/>
ali@0: 	<get>x</get>
ali@0:       </eq>
ali@0:       <print newline="true">PASS</print>
ali@0:       <expr>
ali@0: 	<print newline="true">FAIL</print>
ali@0: 	<false/>
ali@0:       </expr>
ali@0:     </if>
ali@0: 
ali@0:     <if>
ali@0:       <eq>
ali@0: 	<expr>
ali@0: 	  <set name="x">1</set>
ali@0: 	  <add><x/>1</add>
ali@0: 	  <x/>
ali@0: 	</expr>
ali@0: 	<expr>
ali@0: 	  <set name="x">1</set>
ali@0: 	  <add><get>x</get>1</add>
ali@0: 	  <x/>
ali@0: 	</expr>
ali@0:       </eq>
ali@0:       <expr>
ali@0: 	<print newline="true">FAIL</print>
ali@0: 	<false/>
ali@0:       </expr>
ali@0:       <print newline="true">PASS</print>
ali@0:     </if>
ali@0: 
ali@0:     <if>
ali@0:       <eq>
ali@0: 	<define name=".net">4.5.50709</define>
ali@0: 	<get>.net</get>
ali@0:       </eq>
ali@0:       <print newline="true">PASS</print>
ali@0:       <expr>
ali@0: 	<print newline="true">FAIL</print>
ali@0: 	<false/>
ali@0:       </expr>
ali@0:     </if>
ali@0: 
ali@0:     <if>
ali@0:       <eq>
ali@0: 	<expr>
ali@0: 	  <define name="closure"/>
ali@0: 	  <set name="closure">
ali@0: 	    <get>.product</get>
ali@0: 	  </set>
ali@0: 	  <closure>1 2 3 4</closure>
ali@0: 	</expr>
ali@0: 	14
ali@0:       </eq>
ali@0:       <print newline="true">PASS</print>
ali@0:       <expr>
ali@0: 	<print newline="true">FAIL</print>
ali@0: 	<false/>
ali@0:       </expr>
ali@0:     </if>
ali@0: 
ali@0:   </and>
ali@0: </expr>