s(s(NP, VP)) --> np(NP), vp(VP).
np(np(Det, N)) --> det(Det), n(N).
vp(vp(V)) --> v(V).
vp(vp(V, NP)) --> v(V), np(NP).
det(det(the)) --> [the].
det(det(a)) --> [a].
n(n(dog)) --> [dog].
n(n(cat)) --> [cat].
v(v(barked)) --> [barked].
v(v(chased)) --> [chased].
test1(Tree):-s(Tree, [the, dog, barked], []).
test2(Tree):-s(Tree, [the, dog, chased, a, cat], []).
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://www.doc.gold.ac.uk/~mas01rk/Teaching/CIS341/Labs/Programs/dcgtree.txt">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://www.doc.gold.ac.uk/~mas01rk/Teaching/CIS341/Labs/Programs/dcgtree.txt" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>