introduce plain text processing of tei:app

only one child element will be processed of which a `tei:lem` will get precedence

xquery/str.xqm

@@ -148,6 +148,7 @@ declare function str:txtFromTEI($nodes as node()*, $lang as xs:string) as xs:str
         	else $node/child::node() ! str:txtFromTEI(., $lang)
         case element(tei:del) return ()
         case element(tei:subst) return $node/child::element() ! str:txtFromTEI(., $lang)
+        case element(tei:app) return ($node/tei:lem, $node/tei:rdg)[1] ! str:txtFromTEI(., $lang)
         case element(tei:note) return ()
         case element(tei:lb) return 
             if($node[@type='inWord']) then ()