let ul_attribs classes id level =
  {{ { class={: attrib_list classes :} } ++
     {{ match id, level with
          | Some id, 0 -> {{ { id={{Ocamlduce.Utf8.make id}} } }}
          | _ -> {{ {} }}
     }} }}