let a ?href ?name ?target ?attrs ?children () =
    ( Low.a ?attrs ?children () ) >>> set_opt_attrs
        [ "href",href ; "name",name ; "target",target ]