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