2 <expr xmlns="http://www.m17n.org/MIM">
3 <defun fname="factorial">
4 <args><fixed><varref vname="x"/></fixed></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><varref vname="l"/></fixed></args>
19 <throw><error ename="xxx">XXX</error></throw>
20 <foreach vname="term"><varref vname="l"/>
21 <eval><varref vname="term"/></eval>
24 <symbol>looptest-finished</symbol>
27 <defmacro fname="temp">
28 <args><fixed><varref vname="x"/></fixed></args>
30 <lt><eval><varref vname="x"/></eval><integer>10</integer></lt>
35 <set vname="x"><integer>10</integer></set>
36 <set vname="str"><string>ABC</string></set>
38 <catch><symbol>tag</symbol>
39 <funcall fname="looptest">
41 <set vname="i"><integer>0</integer></set>
42 <throw><symbol>tag</symbol><symbol>returned</symbol></throw>
43 <add vname="i"><integer>1</integer></add>
48 <funcall fname="factorial"><varref vname="x"/></funcall>
49 <ins vname="str"><integer>1</integer><string>123</string></ins>
50 <del vname="str"><integer>2</integer><integer>4</integer></del>
52 <list><gt><integer>0</integer><integer>1</integer></gt>
53 <string>1st</string></list>
54 <list><integer>1</integer>
55 <string>2nd</string></list>
58 <list><integer>10</integer><integer>11</integer></list>
59 <funcall fname="add" vname="x"><varref vname="a"/></funcall>
62 <eval><varref vname="x"/></eval>
65 <quote><add><varref vname="x"/><integer>1</integer></add></quote>
68 <concat><integer>?a</integer><integer>?b</integer></concat>
69 <quote><add><varref vname="x"/><integer>1</integer></add></quote>
70 <integer>100</integer>
71 <temp><add vname="y"><integer>5</integer></add></temp>