to testreadlistflattags
 f="aUCBLogo.hhc
 openRead f
 setReader f
 a=Array readListFlatTags
 cc= count a
 c_litem=0
 lst_item="false
 c_ppp=0
 repeat int cc/1
 [ p1 = item repcount a
   if not empty? p1
    [ p2 = parseTag p1
     repeat count p2 [litem= item repcount p2
        if litem=="<UL> [c_litem=c_litem+1]
        if litem=="</UL> [c_litem=c_litem-1]
        if 1 < count litem [o_litem]
     ]
   ]
 ]
 close f
 pr cc
 pr c_ppp
end

to o_litem
  if lst_item [
    ppp=bf bf bf bf bf bf bf litem
    if "> == last ppp [ppp=bl bl ppp]
   if primitivep ppp [c_ppp=c_ppp+1 (pr c_litem ppp)]
   lst_item="false]
  if litem=="|name="Name" | [lst_item="true]
end

to parseTag t
   out=[]
   w="
   inQuote=false
   while [not empty? t]
   [    c=first t
       w=(word w c)
       if not inQuote
       [    if c=="| |
           [    out=lput w out
               w="
           ]
       ]
       if c=="|"|
       [    inQuote=not inQuote
       ]
       t=butFirst t
   ]
   out=lput w out
   output out
end