let colgroup ?align ?valign ?span ?width ?attrs cols =
    ( Low.colgroup ?attrs ~children:cols () ) >>> set_opt_attrs
        [ "align",align ; "valign",valign ; "span",span ; "width",width ]