ali@0: <expr>
ali@0:   <define name="pi">3.14</define>
ali@0: 
ali@0:   <define name="times-two" args="x">
ali@0:     <multiply><get name="x"/>2</multiply>
ali@0:   </define>
ali@0: 
ali@0:   <and>
ali@0:     <if>
ali@0:       <eq>
ali@0: 	<pi/>
ali@0: 	<float>3.14</float>
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: 	<times-two>10</times-two>
ali@0: 	<integer>20</integer>
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: 	<times-two>
ali@0: 	  2
ali@0: 	  <set name="x">4</set>
ali@0: 	</times-two>
ali@0: 	<integer>8</integer>
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:     <print newline="true">
ali@0: 	<string>Times two returns: </string>
ali@0: 	<times-two>
ali@0: 	  2
ali@0: 	  <define name="x">5</define>
ali@0: 	</times-two>
ali@0:     </print>
ali@0: 
ali@0:     <if>
ali@0:       <eq>
ali@0: 	<times-two>
ali@0: 	  2
ali@0: 	  <define name="x">5</define>
ali@0: 	</times-two>
ali@0: 	<integer>10</integer>
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:   </and>
ali@0: </expr>