let tr ?align ?valign ?attrs tds =
    ( Low.tr ?attrs ~children:tds () ) >>> set_opt_attrs
        [ "align",align ; "valign",valign ]