for $p in collection("TALis3476")//p
for $token1 in $p/item
let $token2 := $token1/following-sibling::item[1]
let $token3 := $token1/following-sibling::item[2]
let $token4 := $token1/following-sibling::item[3]
where $token1/a[4]="NC" and $token2/a[4][contains(text(),"P")] and $token3/a[4]="NC" and $token4/a[4][contains(text(),"P")]
return string-join(($token1/a[2], $token2/a[2], $token3/a[2], $token4/a[2]), " " )