: XML-NS: scan "-namespace" append create-in '[ f swap _ ] define-memoized ; parsing