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