%
% media record with embedded twid
%
% stack: xml-str
%
% extracts right part and header name from first tag
%
"<" right$ " " slice ">" right$ !Xml.First
!Xml.Header
"a0" log)(
"Name" !header

_Xml.First
"last" xvalat
"first" xvalat
"num" xvalat
"email" xvalat
"company" xvalat
pop

"a1" log)(
empty !builder
"num" ^"Field." _ quoter &"," ^:builder
"first" ^"Field."   _ hex2asc quoter &"," ^:builder
"last" ^"Field."    _ hex2asc quoter &"," ^:builder
"email" ^"Field."   _ hex2asc quoter &"," ^:builder
"company" ^"Field." _ hex2asc quoter &"," ^:builder

"a2" log)(

/*
<Name Mtype="NME" >
<last value="436f747472656c6c"/>
<first value="44616d6f6e"/>
<email value="496f744061616d656469617765622e636f6d"/>
<num value="6783103796"/>
</Name>
*/