tags; .De -> . De

oud/xquery/nieuwe_woorden.xq

@@ -0,0 +1,16 @@
+for $x in //node[@his and not(@rel="mwp" or @cat="mwu") and not(@his="normal" or @his="name" or @his="prefix_name" or @his_1="decap" or @his_1="0" or @his="skip" or @his="robust_skip" or @his="w_dia" or @his="wo_dia" or @his="within_word_conjunct")]
+  return ( <i>
+<m> {replace(data(/alpino_ds/sentence/@sentid), "\.[^.]*$", "")} </m>
+{
+for $i in data(/alpino_ds/metadata/meta[@name="tag"]/@value)
+  return <t> {$i} </t>
+}
+<w> { data($x//@word) } </w>
+</i>, '&#xa;' )
+
+(:
+
+<m>{ data(/alpino_ds/sentence/@sentid) }</m>
+<m>{ replace(data(/alpino_ds/sentence/@sentid), "\.[^.]*$", "") }</m>
+
+:)