-- list
--[[
ula <- attributes of the ul tag
lia <- attributes of the li tag

    x = list ({item_1, ..., item_n }, ula, ila)
--]]
local list = \ (t, ula, lia)
       local li = TAG.li (lia or "")
       local ul = TAG.ul (ula or "")
       local o = {  }
       for _, x in ipairs (t) do
            o[1 + #o] = li (x)
       end -- for
       => ul (o)
       end -- function
local linkify = \ (t, ula, lia)
       local li = TAG.li (lia or "")
       local ul = TAG.ul (ula or "")
       local o = {  }
       for _, x in ipairs (t) do
         o[1 + #o] = li (LINK (x[1]) (x[2]))
       end -- for
       => ul (o)
        end -- function
=> {
     list = list;
     linkify = linkify;
   }