(attribute (find-attribute occurence (first att))))
(with-plist ((plist-union (rest att) (find-plist attribute)))
(<:p :class "attribute"
(attribute (find-attribute occurence (first att))))
(with-plist ((plist-union (rest att) (find-plist attribute)))
(<:p :class "attribute"