let input_value ?(a = []) name : t = let id = make_id (`Of (name, a)) in `Input_value {id; name; attributes = a}