2 <expr xmlns="http://www.m17n.org/MIM">
3 <defun fname="factorial">
4 <args><fixed vname="x"/></args>
5 <if><lt><varref vname="x"/><integer>2</integer></lt>
9 <funcall fname="factorial">
10 <sub vname="x"><integer>1</integer></sub>
16 <defun fname="looptest">
17 <args><fixed vname="l"/></args>
19 <foreach vname="term"><varref vname="l"/>
20 <eval><varref vname="term"/></eval>
23 <symbol>looptest-finished</symbol>
26 <defmacro fname="temp">
27 <args><fixed vname="x"/></args>
29 <lt><eval><varref vname="x"/></eval><integer>10</integer></lt>
34 <set vname="x"><integer>10</integer></set>
35 <set vname="str"><string>ABC</string></set>
37 <catch><symbol>tag</symbol>
38 <funcall fname="looptest">
40 <set vname="i"><integer>0</integer></set>
41 <throw><symbol>tag</symbol><symbol>returned</symbol></throw>
42 <add vname="i"><integer>1</integer></add>
47 <funcall fname="factorial"><varref vname="x"/></funcall>
48 <ins vname="str"><integer>1</integer><string>123</string></ins>
49 <del vname="str"><integer>2</integer><integer>4</integer></del>
51 <list><gt><integer>0</integer><integer>1</integer></gt>
52 <string>1st</string></list>
53 <list><integer>1</integer>
54 <string>2nd</string></list>
57 <list><integer>10</integer><integer>11</integer></list>
58 <funcall fname="add" vname="x"><varref vname="a"/></funcall>
61 <eval><varref vname="x"/></eval>
64 <quote><add><varref vname="x"/><integer>1</integer></add></quote>
67 <concat><integer>?a</integer><integer>?b</integer></concat>
68 <quote><add><varref vname="x"/><integer>1</integer></add></quote>
69 <integer>100</integer>
70 <temp><add vname="y"><integer>20</integer></add></temp>