; selects all text node children of the context node
;
; Abbreviated XPath: text()
; Full XPath: child::text()

(define tree 
'(elem (@) (para (@) "para") (br (@)) "cdata" (para "second par"))
 )

; Low-level:
((select-kids (ntype?? '*text*))
 tree)

; SXPath:
((sxpath `(*text*))
 tree)

==>
("cdata")