~ for $ent in //entry[text:match-all(stem_morph_segm_phon, '.*\#.*\#.*\#.*\#.*\#.*')]
return $ent