datatype ('label) tree =
 Node of 'label * 'label tree list;
 fun sum(Node(a,nil)) = a
 | sum(Node(a,t::ts)) =
 sum(t) + sum(Node(a,ts));
 val t = Node(3, [
 Node(4,nil),
 Node(5, [Node(7,nil)]),
 Node(6,nil)
 ]);
sum t;
</div><div class="naked_ctrl">
<form action="/index.cgi/larger-text" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://InfoLab.Stanford.EDU/~ullman/emlp/code/fig6.17">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://InfoLab.Stanford.EDU/~ullman/emlp/code/fig6.17" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text" selected="selected">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>