for $x in //node[((@cat="mwu" and node[@pt="spec"]) or (@pt and @*="eigen" and not(@rel="mwp"))) and not(@his="normal") and not(@his_1="decap" or @his_1="0")]
  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>

:)