xex.xml

   1 <?xml version='1.0'?>
   2 <expr>
   3   <defun fname="factorial">
   4     <args><symbol>x</symbol></args>
   5     <body>
   6       <if><lt><variable vname="x"/><integer>2</integer></lt>
   7         <variable vname="x"/>
   8         <mul>
   9           <funcall fname="factorial">
  10             <sub><variable vname="x"/><integer>1</integer></sub>
  11           </funcall>
  12           <variable vname="x"/>
  13         </mul>
  14       </if>
  15     </body>
  16   </defun>
  17
  18   <defun fname="temp">
  19     <args-unevalled><symbol>x</symbol>
  20       <optional/><symbol>y</symbol>
  21       <rest/><symbol>rest</symbol>
  22     </args-unevalled>
  23     <body>
  24       <list><variable vname="x"/></list>
  25     </body>
  26   </defun>
  27
  28   <set><symbol>x</symbol><integer>10</integer></set>
  29   <funcall fname="factorial"><variable vname="x"/></funcall>
  30   <append>
  31     <funcall fname="temp">
  32       <symbol>sym</symbol>
  33       <symbol>sym</symbol>
  34       <symbol>sym</symbol>
  35     </funcall>
  36     <list>
  37       <integer>1</integer>
  38     </list>
  39     <list><integer>2</integer></list>
  40   </append>
  41   <integer>3</integer>
  42 </expr>