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>
22 <eval><varref vname="x"/></eval>
25 <defun fname="looptest">
26 <args-unevalled><fixed vname="l"/></args-unevalled>
28 <foreach vname="term"><varref vname="l"/>
29 <eval><varref vname="term"/></eval>
32 <symbol>looptest-finished</symbol>
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>