diff --git a/codegen.py b/codegen.py
index 50b219e1..f34d79d4 100644
--- a/codegen.py
+++ b/codegen.py
@@ -86,16 +86,18 @@ def print_(x): return o.append(x)
             print_(f'''data {term}
 
 {x}
-  :: forall dom engine
-   . Event (Attribute {term})
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute {term})
+  -> Array (Element event payload)
+  -> Element event payload
 {x} = elementify "{astag(x)}"
 
 {x}_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 {x}_ = {x} empty
 instance tagToDeku{term} :: TagToDeku "{astag(x)}" {term}
 ''')
diff --git a/examples/docs/Component.purs b/examples/docs/Component.purs
index 4f3d22f2..66abfc50 100644
--- a/examples/docs/Component.purs
+++ b/examples/docs/Component.purs
@@ -2,6 +2,7 @@ module Deku.Example.Docs.Component where
 
 import Prelude
 
+import Control.Plus (class Plus)
 import Deku.Attribute (cb, (:=))
 import Deku.Control (text_)
 import Deku.Core (Element)
@@ -10,6 +11,7 @@ import Deku.Example.Docs.Types (Page(..))
 import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx (nut, (~~))
 import Effect (Effect)
+import FRP.Event (class IsEvent)
 import Type.Proxy (Proxy(..))
 
 px = Proxy :: Proxy """<div>
@@ -39,7 +41,7 @@ px = Proxy :: Proxy """<div>
   <p>In this section, we built a simple component. In the next section, we'll recreate the exact same element using a different input syntax called <a ~next~ style="cursor:pointer;">Pursx</a>.</p>
 </div>"""
 
-components :: (Page -> Effect Unit) -> Element
+components :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 components dpage = px ~~
   { code: nut
       ( D.pre_ [D.code_
diff --git a/examples/docs/Docs.purs b/examples/docs/Docs.purs
index c76785bd..5d0ad396 100644
--- a/examples/docs/Docs.purs
+++ b/examples/docs/Docs.purs
@@ -3,37 +3,37 @@ module Deku.Example.Docs where
 import Prelude
 
 import Control.Alt ((<|>))
-import Control.Plus (empty)
+import Control.Plus (class Plus, empty)
 import Data.Foldable (for_, oneOfMap)
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Deku.Attribute (cb, (:=))
 import Deku.Control (deku, flatten, text_)
-import Deku.Core (Element_, Subgraph)
+import Deku.Core (Element, Subgraph)
 import Deku.DOM as D
 import Deku.Example.Docs.Component as Component
 import Deku.Example.Docs.Effects as Effects
 import Deku.Example.Docs.Events as Events
 import Deku.Example.Docs.HelloWorld as HelloWorld
 import Deku.Example.Docs.Intro as Intro
+import Deku.Example.Docs.Portals as Portals
 import Deku.Example.Docs.Pursx1 as Pursx1
 import Deku.Example.Docs.Pursx2 as Pursx2
 import Deku.Example.Docs.Subgraphs as Subgraph
-import Deku.Example.Docs.Portals as Portals
 import Deku.Example.Docs.Types (Page(..))
-import Deku.Interpret (FFIDOMSnapshot, effectfulDOMInterpret, makeFFIDOMSnapshot)
+import Deku.Interpret (effectfulDOMInterpret, makeFFIDOMSnapshot)
 import Deku.Subgraph (SubgraphAction(..), subgraph)
 import Effect (Effect)
-import FRP.Event (Event, create, keepLatest, mapAccum, subscribe)
+import FRP.Event (class IsEvent, create, keepLatest, mapAccum, subscribe)
 import Web.HTML (window)
 import Web.HTML.HTMLDocument (body)
 import Web.HTML.HTMLElement (toElement)
 import Web.HTML.Window (document)
 
 scene
-  :: (Page -> Effect Unit)
-  -> Event Page
-  -> Element_ FFIDOMSnapshot (Effect Unit)
+  :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit)
+  -> event Page
+  -> Element event payload
 scene push event =
   flatten [ D.div_
       $ map
@@ -97,7 +97,7 @@ scene push event =
 
   ]
   where
-  page :: (Page -> Effect Unit) -> Subgraph Page Unit Unit
+  page :: (Page -> Effect Unit) -> Subgraph Page Unit Unit event payload
   page dpage Intro _ _ = Intro.intro dpage
   page dpage HelloWorld _ _ = HelloWorld.helloWorld dpage
   page dpage SimpleComponent _ _ = Component.components dpage
diff --git a/examples/docs/Effects.purs b/examples/docs/Effects.purs
index a5eba0d0..e3955cf1 100644
--- a/examples/docs/Effects.purs
+++ b/examples/docs/Effects.purs
@@ -5,6 +5,7 @@ import Prelude
 import Affjax as AX
 import Affjax.ResponseFormat as ResponseFormat
 import Control.Alt ((<|>))
+import Control.Plus (class Plus)
 import Data.Argonaut.Core (stringifyWithIndent)
 import Data.Either (Either(..), hush)
 import Data.Filterable (filterMap, compact)
@@ -22,7 +23,7 @@ import Deku.Subgraph (SubgraphAction(..), (@@))
 import Effect (Effect)
 import Effect.Aff (launchAff_)
 import Effect.Class (liftEffect)
-import FRP.Event (mapAccum)
+import FRP.Event (class IsEvent, mapAccum)
 import Type.Proxy (Proxy(..))
 
 data UIAction = Initial | Loading | Result String
@@ -74,7 +75,7 @@ px = Proxy :: Proxy """<div>
   <p>It is also possible to handle events (and by extension effectful actions in events, like network calls) in Pursx. Let's see how in the <a ~next~ style="cursor:pointer;">second Pursx section</a>.</p>
 </div>"""
 
-effects :: (Page -> Effect Unit) -> Element
+effects :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 effects dpage  = px ~~
   { code: nut (D.pre_ [D.code_ [text_ """module Main where
 
diff --git a/examples/docs/Events.purs b/examples/docs/Events.purs
index 64c3b08a..b1ae3d1e 100644
--- a/examples/docs/Events.purs
+++ b/examples/docs/Events.purs
@@ -3,6 +3,7 @@ module Deku.Example.Docs.Events where
 import Prelude
 
 import Control.Alt ((<|>))
+import Control.Plus (class Plus)
 import Data.Either (hush)
 import Data.Filterable (compact, filter, filterMap)
 import Data.Foldable (for_, oneOfMap)
@@ -17,7 +18,7 @@ import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx (nut, (~~))
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Effect (Effect)
-import FRP.Event (mapAccum)
+import FRP.Event (class IsEvent, mapAccum)
 import Type.Proxy (Proxy(..))
 import Web.DOM.Element (fromEventTarget)
 import Web.Event.Event (target)
@@ -52,7 +53,7 @@ px = Proxy :: Proxy
   <p>In this section, saw how to react to events using the looping function in combination with change. In the next section, we'll use a similar mechanism to deal with arbitrary <a ~next~ style="cursor:pointer;">effects</a>.</p>
 </div>"""
 
-events :: (Page -> Effect Unit) -> Element
+events :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 events dpage = px ~~
   { code: nut
       ( D.pre_
@@ -91,7 +92,7 @@ main = UIShown 🚀 \push event ->
             ( (pure "Val: 0") <|>
                 ( mapAccum (const $ \x -> (x + 1) /\ x)
                     (filter (eq ButtonClicked) event)
-                    1
+                    0
                     # map (append "Val: " <<< show)
                 )
             )
diff --git a/examples/docs/Examples/Portals.purs b/examples/docs/Examples/Portals.purs
index 9fef0244..b3878719 100644
--- a/examples/docs/Examples/Portals.purs
+++ b/examples/docs/Examples/Portals.purs
@@ -7,13 +7,13 @@ import Data.Hashable (class Hashable, hash)
 import Data.Tuple.Nested ((/\))
 import Deku.Attribute (Attribute, cb, (:=))
 import Deku.Control (flatten, text_)
-import Deku.Core (Element_, Subgraph_)
+import Deku.Core (Element, Subgraph)
 import Deku.DOM as D
-import Deku.Portal (GatewayToSubgraph, portal)
+import Deku.Portal (portal)
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Deku.Toplevel ((🚀))
 import Effect (Effect)
-import FRP.Event (Event)
+import FRP.Event (class IsEvent)
 
 data UIEvents = UIShown | ButtonClicked | SliderMoved Number
 derive instance Eq UIEvents
@@ -28,11 +28,11 @@ instance Hashable Sgs where
   hash = show >>> hash
 
 mySub
-  :: forall env push dom engine
-   . Event Boolean
-  -> (Event Boolean -> Element_ dom engine)
-  -> (Event Boolean -> Element_ dom engine)
-  -> Subgraph_ Sgs env push dom engine
+  :: forall env push event payload
+   . IsEvent event => event Boolean
+  -> (event Boolean -> Element event payload)
+  -> (event Boolean -> Element event payload)
+  -> Subgraph Sgs env push event payload
 mySub event gateway0 gateway1 sg _ _ = D.div_
   [ gateway0
       ( map
@@ -52,9 +52,9 @@ mySub event gateway0 gateway1 sg _ _ = D.div_
       )
   ]
 
-img0' :: Event (Attribute D.Img_)
+img0' :: forall event. Applicative event => event (Attribute D.Img_)
 img0' = pure $ D.Src := "https://picsum.photos/200"
-img1' :: Event (Attribute D.Img_)
+img1' :: forall event. Applicative event => event (Attribute D.Img_)
 img1' = pure $ D.Src := "https://picsum.photos/300"
 
 main :: Effect Unit
diff --git a/examples/docs/Examples/Subgraphs.purs b/examples/docs/Examples/Subgraphs.purs
index c0545f4d..84aecc0c 100644
--- a/examples/docs/Examples/Subgraphs.purs
+++ b/examples/docs/Examples/Subgraphs.purs
@@ -3,7 +3,7 @@ module Deku.Examples.Docs.Examples.Subgraphs where
 import Prelude
 
 import Control.Alt ((<|>))
-import Data.Filterable (compact, partitionMap)
+import Data.Filterable (class Filterable, compact, partitionMap)
 import Data.Hashable (class Hashable, hash)
 import Data.Maybe (Maybe(..))
 import Data.Tuple (snd)
@@ -15,10 +15,10 @@ import Deku.DOM as D
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Deku.Toplevel ((🚀))
 import Effect (Effect)
-import FRP.Event (Event, mapAccum)
+import FRP.Event (class IsEvent, mapAccum)
 
-data UIEvents = UIShown | ButtonClicked | SliderMoved Number
-derive instance Eq UIEvents
+data UIevents = UIShown | ButtonClicked | SliderMoved Number
+derive instance Eq UIevents
 
 data Sgs = Sg0 | Sg1
 derive instance Eq Sgs
@@ -29,14 +29,17 @@ instance Show Sgs where
 instance Hashable Sgs where
   hash = show >>> hash
 
-counter :: forall a. Event a → Event Int
+counter :: forall event a. IsEvent event => event a → event Int
 counter event = map snd $ mapAccum f event 0
   where
   f a b = (b + 1) /\ (a /\ b)
 
 mySub
-  :: (Sgs -> Effect Unit)
-  -> Subgraph Sgs Unit Unit
+  :: forall event payload
+   . Filterable event
+  => IsEvent event
+  => (Sgs -> Effect Unit)
+  -> Subgraph Sgs Unit Unit event payload
 mySub raise Sg0 push event =
   let
     { left, right } = partitionMap identity event
@@ -52,7 +55,6 @@ mySub raise Sg0 push event =
               [ text_ "Send to C" ]
           , D.div_ [ text (map (append "C: " <<< show) (counter right)) ]
           , D.hr_ []
-
           ]
       ]
 mySub raise Sg1 push event =
diff --git a/examples/docs/HelloWorld.purs b/examples/docs/HelloWorld.purs
index ac97a95f..8f652a6e 100644
--- a/examples/docs/HelloWorld.purs
+++ b/examples/docs/HelloWorld.purs
@@ -2,14 +2,16 @@ module Deku.Example.Docs.HelloWorld where
 
 import Prelude
 
+import Control.Plus (class Plus)
 import Deku.Attribute (cb, (:=))
 import Deku.Control (text_)
-import Deku.Core (Element)
+import Deku.Core (Element, Element)
 import Deku.DOM as D
 import Deku.Example.Docs.Types (Page(..))
 import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx (nut, (~~))
 import Effect (Effect)
+import FRP.Event (class IsEvent)
 import Type.Proxy (Proxy(..))
 
 px = Proxy :: Proxy """<div>
@@ -36,7 +38,10 @@ px = Proxy :: Proxy """<div>
 </div>"""
 
 
-helloWorld :: (Page -> Effect Unit) -> Element
+helloWorld :: forall event payload.
+  Plus event =>
+  IsEvent event =>
+  (Page -> Effect Unit) -> Element event payload
 helloWorld dpage  = px ~~
   { code: nut (D.pre_ [D.code_ [text_ """module Main where
 
@@ -47,7 +52,7 @@ import Deku.Toplevel ((🚀))
 import Effect (Effect)
 
 main :: Effect Unit
-main = unit 🚀 \_ _ -> text_ "Hello world"""]])
+main = unit 🚀 \_ _ -> text_ "Hello world""""]])
   , result: nut (D.div_ [text_ "Hello world"])
   , next: pure (D.OnClick := (cb (const $ dpage SimpleComponent *> scrollToTop)))
   }
\ No newline at end of file
diff --git a/examples/docs/Intro.purs b/examples/docs/Intro.purs
index 8e35d8ae..0ffcccc2 100644
--- a/examples/docs/Intro.purs
+++ b/examples/docs/Intro.purs
@@ -2,6 +2,7 @@ module Deku.Example.Docs.Intro where
 
 import Prelude
 
+import Control.Plus (class Plus)
 import Deku.Attribute (cb, (:=))
 import Deku.Core (Element)
 import Deku.DOM as D
@@ -9,6 +10,7 @@ import Deku.Example.Docs.Types (Page(..))
 import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx ((~~))
 import Effect (Effect)
+import FRP.Event (class IsEvent)
 import Type.Proxy (Proxy(..))
 
 px = Proxy :: Proxy """<div>
@@ -29,6 +31,6 @@ px = Proxy :: Proxy """<div>
   <p>And now, without further ado, check out the <a ~next~ style="cursor:pointer;">hello world section</a>!</p>
 </div>"""
 
-intro :: (Page -> Effect Unit) -> Element
+intro :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 intro dpage  = px ~~
   { next: pure (D.OnClick := (cb (const $ dpage HelloWorld *> scrollToTop))) }
\ No newline at end of file
diff --git a/examples/docs/Portals.purs b/examples/docs/Portals.purs
index 8bd1ffd6..e72ff424 100644
--- a/examples/docs/Portals.purs
+++ b/examples/docs/Portals.purs
@@ -3,6 +3,7 @@ module Deku.Example.Docs.Portals where
 import Prelude
 
 import Control.Alt ((<|>))
+import Control.Plus (class Plus)
 import Data.Either (hush)
 import Data.Filterable (compact)
 import Data.Hashable (class Hashable, hash)
@@ -10,14 +11,14 @@ import Data.Tuple (snd)
 import Data.Tuple.Nested ((/\))
 import Deku.Attribute (cb, (:=))
 import Deku.Control (flatten, text_)
-import Deku.Core (Element, Element_, Subgraph_)
+import Deku.Core (Element, Element, Subgraph)
 import Deku.DOM as D
 import Deku.Example.Docs.Types (Page)
 import Deku.Portal (portal)
 import Deku.Pursx (nut, (~~))
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Effect (Effect)
-import FRP.Event (Event, mapAccum)
+import FRP.Event (class IsEvent, Event, mapAccum)
 import Type.Proxy (Proxy(..))
 
 data UIEvents = UIShown | ButtonClicked | SliderMoved Number
@@ -39,11 +40,11 @@ counter event = map snd $ mapAccum f event 0
 
 
 mySub
-  :: forall env push dom engine
-   . Event Boolean
-  -> (Event Boolean -> Element_ dom engine)
-  -> (Event Boolean -> Element_ dom engine)
-  -> Subgraph_ Sgs env push dom engine
+  :: forall env push event payload
+   . IsEvent event => event Boolean
+  -> (event Boolean -> Element event payload)
+  -> (event Boolean -> Element event payload)
+  -> Subgraph Sgs env push event payload
 mySub event gateway0 gateway1 sg _ _ = D.div_
   [ gateway0
       ( map
@@ -91,18 +92,18 @@ px =  Proxy :: Proxy """<div>
     <li><code>continuation</code> - a function yielding element that potentially uses the portal</li>
   </ul>
   <p>The element yielded by the continuation will be displayed on the screen.</p>
-  <p>The continuation takes one argument: an <code>Event Boolean</code> that indicates whether or not to display the portal. The portal will jump to whichever place in the DOM yielded true most recently. Be careful - you must send at least one true event to see your portal!</p>
+  <p>The continuation takes one argument: an <code>event Boolean</code> that indicates whether or not to display the portal. The portal will jump to whichever place in the DOM yielded true most recently. Be careful - you must send at least one true event to see your portal!</p>
   <h2>Parting shot</h2>
   <p>Thanks for checking out Deku! I had a blast writing it, I hope you have fun using it too 😊</p>
 </div>"""
 
-portals :: (Page -> Effect Unit) -> Element
+portals :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 portals dpage = px ~~
   { code: nut
       ( D.pre_
           [ D.code_
               [ text_
-                  """module Deku.Examples.Docs.Examples.Portals where
+                  """module Main where
 
 import Prelude
 
@@ -111,13 +112,13 @@ import Data.Hashable (class Hashable, hash)
 import Data.Tuple.Nested ((/\))
 import Deku.Attribute (Attribute, cb, (:=))
 import Deku.Control (flatten, text_)
-import Deku.Core (Element_, Subgraph_)
+import Deku.Core (Element, Subgraph)
 import Deku.DOM as D
-import Deku.Portal (GatewayToSubgraph, portal)
+import Deku.Portal (portal)
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Deku.Toplevel ((🚀))
 import Effect (Effect)
-import FRP.Event (Event)
+import FRP.Event (class IsEvent)
 
 data UIEvents = UIShown | ButtonClicked | SliderMoved Number
 derive instance Eq UIEvents
@@ -132,11 +133,11 @@ instance Hashable Sgs where
   hash = show >>> hash
 
 mySub
-  :: forall env push dom engine
-   . Event Boolean
-  -> (Event Boolean -> Element_ dom engine)
-  -> (Event Boolean -> Element_ dom engine)
-  -> Subgraph_ Sgs env push dom engine
+  :: forall env push event payload
+   . IsEvent event => event Boolean
+  -> (event Boolean -> Element event payload)
+  -> (event Boolean -> Element event payload)
+  -> Subgraph Sgs env push event payload
 mySub event gateway0 gateway1 sg _ _ = D.div_
   [ gateway0
       ( map
@@ -156,9 +157,9 @@ mySub event gateway0 gateway1 sg _ _ = D.div_
       )
   ]
 
-img0' :: Event (Attribute D.Img_)
+img0' :: forall event. Applicative event => event (Attribute D.Img_)
 img0' = pure $ D.Src := "https://picsum.photos/200"
-img1' :: Event (Attribute D.Img_)
+img1' :: forall event. Applicative event => event (Attribute D.Img_)
 img1' = pure $ D.Src := "https://picsum.photos/300"
 
 main :: Effect Unit
diff --git a/examples/docs/Pursx1.purs b/examples/docs/Pursx1.purs
index a5b89f8a..163afee9 100644
--- a/examples/docs/Pursx1.purs
+++ b/examples/docs/Pursx1.purs
@@ -2,6 +2,7 @@ module Deku.Example.Docs.Pursx1 where
 
 import Prelude
 
+import Control.Plus (class Plus)
 import Deku.Attribute (cb, (:=))
 import Deku.Control (text_)
 import Deku.Core (Element)
@@ -10,6 +11,7 @@ import Deku.Example.Docs.Types (Page(..))
 import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx (nut, psx, (~~))
 import Effect (Effect)
+import FRP.Event (class IsEvent)
 import Type.Proxy (Proxy(..))
 
 myDom = Proxy :: Proxy """<div>
@@ -52,7 +54,7 @@ px = Proxy :: Proxy """<div>
 </div>"""
 
 
-pursx1 :: (Page -> Effect Unit) -> Element
+pursx1 :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 pursx1 dpage  = px ~~
   { code: nut (D.pre_ [D.code_ [text_ $ """module Main where
 
diff --git a/examples/docs/Pursx2.purs b/examples/docs/Pursx2.purs
index 8f2142d9..345c12aa 100644
--- a/examples/docs/Pursx2.purs
+++ b/examples/docs/Pursx2.purs
@@ -3,6 +3,7 @@ module Deku.Example.Docs.Pursx2 where
 import Prelude
 
 import Control.Alt ((<|>))
+import Control.Plus (class Plus)
 import Data.Compactable (compact)
 import Data.Either (hush)
 import Data.Maybe (Maybe(..))
@@ -16,9 +17,13 @@ import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx (makePursx', nut, (~~))
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Effect (Effect)
+import FRP.Event (class IsEvent)
 import Type.Proxy (Proxy(..))
 
-px = Proxy :: Proxy """<div>
+px =
+  Proxy
+    :: Proxy
+      """<div>
   <h1>Pursx 2</h1>
 
   <h2>Working with events and effects</h2>
@@ -42,7 +47,10 @@ px = Proxy :: Proxy """<div>
   <p>In more complicated apps, like this documentation, we'll want to split up our components into sub-components and create a way for them to communicate back and forth. In the next section, we'll see one way to do this via <a ?next? style="cursor:pointer;">subgraphs</a>.</p>
 </div>"""
 
-myDom = Proxy :: Proxy """<div>
+myDom =
+  Proxy
+    :: Proxy
+      """<div>
         <button>I do nothing</button>
         <ul>
           <li>A</li>
@@ -59,9 +67,18 @@ myDom = Proxy :: Proxy """<div>
       </div>
 """
 
-pursx2 :: (Page -> Effect Unit) -> Element
+pursx2
+  :: forall event payload
+   . IsEvent event
+  => Plus event
+  => (Page -> Effect Unit)
+  -> Element event payload
 pursx2 dpage = makePursx' (Proxy :: _ "?") px
-  { code: nut (D.pre_ [D.code_ [text_ $ """module Main where
+  { code: nut
+      ( D.pre_
+          [ D.code_
+              [ text_ $
+                  """module Main where
 
 import Prelude
 
@@ -76,7 +93,8 @@ import Deku.Toplevel ((🚀))
 import Effect (Effect)
 import Type.Proxy (Proxy(..))
 
-myDom = Proxy :: Proxy """ <> "\"\"\"" <> """<div>
+myDom = Proxy :: Proxy """ <> "\"\"\""
+                    <> """<div>
         <button>I do nothing</button>
         <ul>
           <li>A</li>
@@ -91,7 +109,10 @@ myDom = Proxy :: Proxy """ <> "\"\"\"" <> """<div>
         </div>
         <div><div></div><div><input type="range"/></div></div>
       </div>
-""" <> "\"\"\"" <> """
+"""
+                    <> "\"\"\""
+                    <>
+                      """
 
 main :: Effect Unit
 main = Nothing 🚀 \push event -> myDom ~~
@@ -103,21 +124,25 @@ main = Nothing 🚀 \push event -> myDom ~~
                   pure "I was dynamically inserted"
           ]
       )
-  }"""]])
+  }"""
+              ]
+          ]
+      )
   , result: nut
       ( pure (unit /\ InsertOrUpdate unit) @@ \_ push event' ->
           let
             event = compact (map hush event')
           in
-            myDom ~~ { myli: pure (D.Style := "background-color:rgb(200,240,210);")
-  , somethingNew: nut
-      ( D.button (pure (D.OnClick := cb (const $ push (Just unit))))
-          [ text
-              $ (compact event $> "Thanks for clicking me!") <|>
-                  pure "I was dynamically inserted"
-          ]
-      )
-  }
+            myDom ~~
+              { myli: pure (D.Style := "background-color:rgb(200,240,210);")
+              , somethingNew: nut
+                  ( D.button (pure (D.OnClick := cb (const $ push (Just unit))))
+                      [ text
+                          $ (compact event $> "Thanks for clicking me!") <|>
+                            pure "I was dynamically inserted"
+                      ]
+                  )
+              }
       )
   , next: pure (D.OnClick := (cb (const $ dpage Subgraph *> scrollToTop)))
   }
\ No newline at end of file
diff --git a/examples/docs/Subgraphs.purs b/examples/docs/Subgraphs.purs
index 3b3bacf6..ac06ab08 100644
--- a/examples/docs/Subgraphs.purs
+++ b/examples/docs/Subgraphs.purs
@@ -4,7 +4,8 @@ import Prelude
 
 import Control.Alt ((<|>))
 import Data.Either (hush)
-import Data.Filterable (compact, partitionMap)
+import Control.Plus (class Plus)
+import Data.Filterable (class Filterable, compact, partitionMap)
 import Data.Hashable (class Hashable, hash)
 import Data.Maybe (Maybe(..))
 import Data.Tuple (snd)
@@ -18,7 +19,7 @@ import Deku.Example.Docs.Util (scrollToTop)
 import Deku.Pursx (nut, (~~))
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Effect (Effect)
-import FRP.Event (Event, mapAccum)
+import FRP.Event (class IsEvent, mapAccum)
 import Type.Proxy (Proxy(..))
 
 data UIEvents = UIShown | ButtonClicked | SliderMoved Number
@@ -33,14 +34,17 @@ instance Show Sgs where
 instance Hashable Sgs where
   hash = show >>> hash
 
-counter :: forall a. Event a → Event Int
+counter :: forall event a. IsEvent event => event a → event Int
 counter event = map snd $ mapAccum f event 0
   where
   f a b = (b + 1) /\ (a /\ b)
 
 mySub
-  :: (Sgs -> Effect Unit)
-  -> Subgraph Sgs Unit Unit
+  :: forall event payload
+   . Filterable event
+  => IsEvent event
+  => (Sgs -> Effect Unit)
+  -> Subgraph Sgs Unit Unit event payload
 mySub raise Sg0 push event =
   let
     { left, right } = partitionMap identity event
@@ -54,7 +58,12 @@ mySub raise Sg0 push event =
           , D.button
               (pure $ D.OnClick := cb (const $ push unit))
               [ text_ "Send to C" ]
-          , D.div_ [ text (map (append "C: " <<< show) (map (add 1) (counter right) <|> pure 0)) ]
+          , D.div_
+              [ text
+                  ( map (append "C: " <<< show)
+                      (map (add 1) (counter right) <|> pure 0)
+                  )
+              ]
           , D.hr_ []
 
           ]
@@ -72,11 +81,19 @@ mySub raise Sg1 push event =
           , D.button
               (pure $ D.OnClick := cb (const $ push unit))
               [ text_ "Send to D" ]
-          , D.div_ [ text (map (append "D: " <<< show) (map (add 1) (counter right) <|> pure 0)) ]
+          , D.div_
+              [ text
+                  ( map (append "D: " <<< show)
+                      (map (add 1) (counter right) <|> pure 0)
+                  )
+              ]
           ]
       ]
 
-px = Proxy :: Proxy """<div>
+px =
+  Proxy
+    :: Proxy
+      """<div>
   <h1>Subgraphs</h1>
 
   <h2>Inter-component communication</h2>
@@ -124,14 +141,18 @@ px = Proxy :: Proxy """<div>
   <p>Subgraphs are a great way to bring elements in and out of the DOM, but what if you want to take an existing element and ship it somewhere else? In these cases, the best bet is often to use CSS, but if CSS won't cut it, there are <a ~next~ style="cursor:pointer;">portals</a>.</p>
 </div>"""
 
-subgraphs :: (Page -> Effect Unit) -> Element
+subgraphs :: forall event payload. IsEvent event => Plus event => (Page -> Effect Unit) -> Element event payload
 subgraphs dpage = px ~~
-  { code: nut (D.pre_ [ D.code_ [ text_ """module Main where
+  { code: nut
+      ( D.pre_
+          [ D.code_
+              [ text_
+                  """module Main where
 
 import Prelude
 
 import Control.Alt ((<|>))
-import Data.Filterable (compact, partitionMap)
+import Data.Filterable (class Filterable, compact, partitionMap)
 import Data.Hashable (class Hashable, hash)
 import Data.Maybe (Maybe(..))
 import Data.Tuple (snd)
@@ -143,10 +164,10 @@ import Deku.DOM as D
 import Deku.Subgraph (SubgraphAction(..), (@@))
 import Deku.Toplevel ((🚀))
 import Effect (Effect)
-import FRP.Event (Event, mapAccum)
+import FRP.Event (class IsEvent, mapAccum)
 
-data UIEvents = UIShown | ButtonClicked | SliderMoved Number
-derive instance Eq UIEvents
+data UIevents = UIShown | ButtonClicked | SliderMoved Number
+derive instance Eq UIevents
 
 data Sgs = Sg0 | Sg1
 derive instance Eq Sgs
@@ -157,14 +178,17 @@ instance Show Sgs where
 instance Hashable Sgs where
   hash = show >>> hash
 
-counter :: forall a. Event a → Event Int
+counter :: forall event a. IsEvent event => event a → event Int
 counter event = map snd $ mapAccum f event 0
   where
   f a b = (b + 1) /\ (a /\ b)
 
 mySub
-  :: (Sgs -> Effect Unit)
-  -> Subgraph Sgs Unit Unit
+  :: forall event payload
+   . Filterable event
+  => IsEvent event
+  => (Sgs -> Effect Unit)
+  -> Subgraph Sgs Unit Unit event payload
 mySub raise Sg0 push event =
   let
     { left, right } = partitionMap identity event
@@ -174,15 +198,12 @@ mySub raise Sg0 push event =
           [ D.button
               (pure $ D.OnClick := cb (const $ raise Sg0))
               [ text_ "Send to B" ]
-          , D.div_ [ text
-                     (map (append "A: " <<< show) (counter left)) ]
+          , D.div_ [ text (map (append "A: " <<< show) (counter left)) ]
           , D.button
               (pure $ D.OnClick := cb (const $ push unit))
               [ text_ "Send to C" ]
-          , D.div_ [ text (map (append "C: " <<< show)
-                     (map (add 1) (counter right) <|> pure 0)) ]
+          , D.div_ [ text (map (append "C: " <<< show) (counter right)) ]
           , D.hr_ []
-
           ]
       ]
 mySub raise Sg1 push event =
@@ -192,15 +213,13 @@ mySub raise Sg1 push event =
     D.div_
       [ D.div_
           [ D.button
-              (pure $ D.OnClick := cb (const $ raise Sg1))
+              (pure $ D.OnClick := cb (const $ raise Sg0))
               [ text_ "Send to A" ]
-          , D.div_ [ text
-                     (map (append "B: " <<< show) (counter left)) ]
+          , D.div_ [ text (map (append "B: " <<< show) (counter (left))) ]
           , D.button
               (pure $ D.OnClick := cb (const $ push unit))
               [ text_ "Send to D" ]
-          , D.div_ [ text (map (append "D: " <<< show)
-                     (map (add 1) (counter right) <|> pure 0)) ]
+          , D.div_ [ text (map (append "D: " <<< show) (counter right)) ]
           ]
       ]
 
@@ -215,7 +234,10 @@ main = Nothing 🚀 \push event ->
                 Sg1 -> Sg0 /\ InsertOrUpdate unit
             )
         )
-  ) @@ mySub (push <<< Just)""" ] ])
+  ) @@ mySub (push <<< Just)"""
+              ]
+          ]
+      )
   , result: nut
       ( pure (unit /\ InsertOrUpdate unit) @@ \_ push event' ->
           let
@@ -232,5 +254,5 @@ main = Nothing 🚀 \push event ->
                   )
             ) @@ mySub (push <<< Just)
       )
-       , next: pure (D.OnClick := (cb (const $ dpage Portals *> scrollToTop)))
+  , next: pure (D.OnClick := (cb (const $ dpage Portals *> scrollToTop)))
   }
\ No newline at end of file
diff --git a/examples/hello-world/HelloWorld.purs b/examples/hello-world/HelloWorld.purs
index 017765f7..e22185c6 100644
--- a/examples/hello-world/HelloWorld.purs
+++ b/examples/hello-world/HelloWorld.purs
@@ -9,7 +9,7 @@ import Data.Tuple (Tuple(..))
 import Deku.Attribute (cb, (:=))
 import Deku.Control (deku, flatten)
 import Deku.Control as C
-import Deku.Core (Element_)
+import Deku.Core (Element)
 import Deku.DOM as D
 import Deku.Interpret (FFIDOMSnapshot, effectfulDOMInterpret, makeFFIDOMSnapshot)
 import Effect (Effect)
@@ -26,7 +26,7 @@ counter event = mapAccum f event 0
 scene
   :: (Boolean -> Effect Unit)
   -> Event Boolean
-  -> Element_ FFIDOMSnapshot (Effect Unit)
+  -> Element Event (FFIDOMSnapshot -> Effect Unit)
 scene push event =
   flatten
     [ D.div empty [ C.text (pure "Stops after 3 clicks") ]
diff --git a/examples/pursx/Pursx.purs b/examples/pursx/Pursx.purs
index 822207ae..048e7e53 100644
--- a/examples/pursx/Pursx.purs
+++ b/examples/pursx/Pursx.purs
@@ -7,7 +7,7 @@ import Data.Foldable (for_)
 import Deku.Attribute (cb, (:=))
 import Deku.Control (deku)
 import Deku.Control as C
-import Deku.Core (Element_)
+import Deku.Core (Element)
 import Deku.DOM as D
 import Deku.Interpret (FFIDOMSnapshot, effectfulDOMInterpret, makeFFIDOMSnapshot)
 import Deku.Pursx (PursxElement(..), (~~))
@@ -29,7 +29,7 @@ px = Proxy :: Proxy """<div>
 scene
   :: (Boolean -> Effect Unit)
   -> Event Boolean
-  -> Element_ FFIDOMSnapshot (Effect Unit)
+  -> Element Event (FFIDOMSnapshot -> Effect Unit)
 scene push event =
   D.div empty
       [ px ~~
diff --git a/examples/subgraph/Subgraph.purs b/examples/subgraph/Subgraph.purs
index 06f38f7e..7576f03c 100644
--- a/examples/subgraph/Subgraph.purs
+++ b/examples/subgraph/Subgraph.purs
@@ -13,7 +13,7 @@ import Data.Tuple.Nested ((/\))
 import Deku.Attribute (cb, (:=))
 import Deku.Control (deku, flatten)
 import Deku.Control as C
-import Deku.Core (Element_)
+import Deku.Core (Element)
 import Deku.DOM as D
 import Deku.Interpret (FFIDOMSnapshot, effectfulDOMInterpret, makeFFIDOMSnapshot)
 import Deku.Subgraph (SubgraphAction(..))
@@ -43,7 +43,7 @@ n1 = 10
 scene
   :: (HelloWorld -> Effect Unit)
   -> Event HelloWorld
-  -> Element_ FFIDOMSnapshot (Effect Unit)
+  -> Element Event (FFIDOMSnapshot -> (Effect Unit))
 scene push event =
   flatten
     [ D.div_
diff --git a/packages.dhall b/packages.dhall
index e1d94dad..ed62a551 100644
--- a/packages.dhall
+++ b/packages.dhall
@@ -215,7 +215,7 @@ let additions =
           [  "effect"
           ]
         , repo = "https://github.com/mikesol/purescript-deku-toplevel.git"
-        , version = "radical"
+        , version = "newtypes"
         }
       }
 
diff --git a/pursx.py b/pursx.py
index 6847de8d..fbb92db6 100644
--- a/pursx.py
+++ b/pursx.py
@@ -13,11 +13,11 @@ def print_(x): o.append(x)
 import Data.Profunctor (lcmap)
 import Data.Symbol (class IsSymbol, reflectSymbol)
 import Deku.Attribute (Attribute, unsafeUnAttribute)
-import Deku.Core (DOMInterpret(..), Element_, Element)
+import Deku.Core (DOMInterpret(..), Element(..))
 import Deku.DOM (class TagToDeku)
-import Control.Plus (empty)
+import Control.Plus (class Plus, empty)
 import FRP.Behavior (sample_)
-import FRP.Event (Event, keepLatest)
+import FRP.Event (keepLatest, class IsEvent)
 import Prim.Boolean (False, True)
 import Prim.Row as Row
 import Prim.RowList as RL
@@ -25,19 +25,20 @@ def print_(x): o.append(x)
 import Record (get)
 import Type.Proxy (Proxy(..))
 
-newtype PursxElement = PursxElement Element
-nut = PursxElement :: Element -> PursxElement
+newtype PursxElement event payload = PursxElement (Element event payload)
+nut :: forall event payload. Element event payload -> PursxElement event payload
+nut = PursxElement
 ''')
 
 print_('pursx :: forall s. Proxy s')
 print_('pursx = Proxy')
-print_('class DoVerbForAttr (verb :: Symbol) (tag :: Symbol) (acc :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (newTail :: Symbol) | verb acc head tail pursi -> purso newTail')
-print_('instance (TagToDeku tag deku, Row.Cons acc (Event (Attribute deku)) pursi purso) => DoVerbForAttr verb tag acc verb tail pursi purso tail')
-print_('else instance (Sym.Append acc anything acc2, Sym.Cons x y tail, DoVerbForAttr verb tag acc2 x y pursi purso newTail) => DoVerbForAttr verb tag acc anything tail pursi purso newTail')
+print_('class DoVerbForAttr (event :: Type -> Type) (verb :: Symbol) (tag :: Symbol) (acc :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (newTail :: Symbol) | event verb acc head tail pursi -> purso newTail')
+print_('instance (TagToDeku tag deku, IsEvent event, Row.Cons acc (event (Attribute deku)) pursi purso) => DoVerbForAttr event verb tag acc verb tail pursi purso tail')
+print_('else instance (Sym.Append acc anything acc2, Sym.Cons x y tail, DoVerbForAttr event verb tag acc2 x y pursi purso newTail) => DoVerbForAttr event verb tag acc anything tail pursi purso newTail')
 print_('--')
-print_('class DoVerbForDOM (verb :: Symbol) (acc :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (newTail :: Symbol) | verb acc head tail pursi -> purso newTail')
-print_('instance (Row.Cons acc PursxElement pursi purso) => DoVerbForDOM verb acc verb tail pursi purso tail')
-print_('else instance (Sym.Append acc anything acc2, Sym.Cons x y tail, DoVerbForDOM verb acc2 x y pursi purso newTail) => DoVerbForDOM verb acc anything tail pursi purso newTail')
+print_('class DoVerbForDOM (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (acc :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (newTail :: Symbol) | event payload verb acc head tail pursi -> purso newTail')
+print_('instance (Row.Cons acc (PursxElement event payload) pursi purso) => DoVerbForDOM event payload verb acc verb tail pursi purso tail')
+print_('else instance (Sym.Append acc anything acc2, Sym.Cons x y tail, DoVerbForDOM event payload verb acc2 x y pursi purso newTail) => DoVerbForDOM event payload verb acc anything tail pursi purso newTail')
 print_('--')
 print_('class IsWhiteSpace (space :: Symbol)')
 print_('instance IsWhiteSpace ""')
@@ -46,28 +47,28 @@ def print_(x): o.append(x)
 for x in WHITESPACE:
     print_('instance IsSingleWhiteSpace "%s"' % (x,))
 
-print_('class PXStart (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (purs :: Row Type) | verb head tail -> purs')
+print_('class PXStart (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (purs :: Row Type) | event payload verb head tail -> purs')
 for x in WHITESPACE:
-    print_('instance (Sym.Cons x y tail, PXStart verb x y purs) => PXStart verb "%s" tail purs' % (x,))
+    print_('instance (Sym.Cons x y tail, PXStart event payload verb x y purs) => PXStart event payload verb "%s" tail purs' % (x,))
 print_("""instance
   ( Sym.Cons x y tail
-  , PXTagPreName verb x y () purso trailing
+  , PXTagPreName event payload verb x y () purso trailing
   , IsWhiteSpace trailing
-  ) => PXStart verb "<" tail purso
+  ) => PXStart event payload verb "<" tail purso
 """)
 print_("--")
-print_('class PXTagPreName (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb head tail pursi -> purso trailing')
+print_('class PXTagPreName (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb head tail pursi -> purso trailing')
 for x in WHITESPACE:
-    print_('instance (Sym.Cons x y tail, PXTagPreName verb x y pursi purso trailing) => PXTagPreName verb "%s" tail pursi purso trailing' % (x,))
+    print_('instance (Sym.Cons x y tail, PXTagPreName event payload verb x y pursi purso trailing) => PXTagPreName event payload verb "%s" tail pursi purso trailing' % (x,))
 for x in string.ascii_lowercase:
-  print_('instance (PXTagName verb "" "%s" tail pursi purso trailing) => PXTagPreName verb "%s" tail pursi purso trailing' % (x,x))
+  print_('instance (PXTagName event payload verb "" "%s" tail pursi purso trailing) => PXTagPreName event payload verb "%s" tail pursi purso trailing' % (x,x))
 print_('--')
-print_('class PXTagName (verb :: Symbol) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb tag head tail pursi -> purso trailing')
-print_('instance (Sym.Cons q r tail, PXBody verb q r pursi purso trailing, Sym.Cons x y trailing, PreEndTagFromTrailing x y tag newTrailing) => PXTagName verb tag ">" tail pursi purso newTrailing')
+print_('class PXTagName (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb tag head tail pursi -> purso trailing')
+print_('instance (Sym.Cons q r tail, PXBody event payload verb q r pursi purso trailing, Sym.Cons x y trailing, PreEndTagFromTrailing x y tag newTrailing) => PXTagName event payload verb tag ">" tail pursi purso newTrailing')
 for x in string.ascii_lowercase+'-'+string.digits:
-  print_('instance (Sym.Cons x y tail, Sym.Append tag_ "%s" tag, PXTagName verb tag x y pursi purso trailing) => PXTagName verb tag_ "%s" tail pursi purso trailing' % (x,x))
+  print_('instance (Sym.Cons x y tail, Sym.Append tag_ "%s" tag, PXTagName event payload verb tag x y pursi purso trailing) => PXTagName event payload verb tag_ "%s" tail pursi purso trailing' % (x,x))
 for x in WHITESPACE:
-  print_('instance (Sym.Cons x y tail, PXTagPreAttrName verb False tag x y pursi purso trailing) => PXTagName verb tag "%s" tail pursi purso trailing' % x)
+  print_('instance (Sym.Cons x y tail, PXTagPreAttrName event payload verb False tag x y pursi purso trailing) => PXTagName event payload verb tag "%s" tail pursi purso trailing' % x)
 print_('--')
 print_('class PreEndTagFromTrailing (head :: Symbol) (tail :: Symbol) (tag :: Symbol) (newTrailing :: Symbol) | head tail -> tag newTrailing')
 for x in WHITESPACE:
@@ -80,39 +81,39 @@ def print_(x): o.append(x)
   print_('instance (Sym.Cons x y tail, Sym.Append tag_ "%s" tag, EndTagFromTrailing x y tag otag trailing) => EndTagFromTrailing "%s" tail tag_ otag trailing' % (x,x))
 print_('instance EndTagFromTrailing ">" tail tag tag tail')
 print_('--')
-print_('class PXTagPreAttrName (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb hasAttributed tag head tail pursi -> purso trailing')
-print_('instance (Sym.Cons ">" trailing tail) => PXTagPreAttrName verb hasAttributed tag "/" tail purs purs trailing')
+print_('class PXTagPreAttrName (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb hasAttributed tag head tail pursi -> purso trailing')
+print_('instance (Sym.Cons ">" trailing tail) => PXTagPreAttrName event payload verb hasAttributed tag "/" tail purs purs trailing')
 print_('-- trailing will be by definition whatever comes after the closing tag, ie </ foo> will be " foo>"')
-print_('else instance (Sym.Cons q r tail, PXBody verb q r pursi purso trailing, Sym.Cons x y trailing, PreEndTagFromTrailing x y tag newTrailing) => PXTagPreAttrName verb hasAttributed tag ">" tail pursi purso newTrailing')
+print_('else instance (Sym.Cons q r tail, PXBody event payload verb q r pursi purso trailing, Sym.Cons x y trailing, PreEndTagFromTrailing x y tag newTrailing) => PXTagPreAttrName event payload verb hasAttributed tag ">" tail pursi purso newTrailing')
 print_('--')
 for x in WHITESPACE:
-  print_('else instance (Sym.Cons x y tail, PXTagPreAttrName verb hasAttributed tag x y pursi purso trailing) => PXTagPreAttrName verb hasAttributed tag "%s" tail pursi purso trailing' % x)
+  print_('else instance (Sym.Cons x y tail, PXTagPreAttrName event payload verb hasAttributed tag x y pursi purso trailing) => PXTagPreAttrName event payload verb hasAttributed tag "%s" tail pursi purso trailing' % x)
 for x in string.ascii_letters:
-  print_('else instance (PXTagAttrName verb hasAttributed tag "%s" tail pursi purso trailing) => PXTagPreAttrName verb hasAttributed tag "%s" tail pursi purso trailing' % (x,x))
-print_('else instance (Sym.Cons x y tail, DoVerbForAttr verb tag "" x y pursi pursx newTail, Sym.Cons xx yy newTail, PXTagPreAttrName verb True tag xx yy pursx purso trailing) => PXTagPreAttrName verb False tag verb tail pursi purso trailing')
+  print_('else instance (PXTagAttrName event payload verb hasAttributed tag "%s" tail pursi purso trailing) => PXTagPreAttrName event payload verb hasAttributed tag "%s" tail pursi purso trailing' % (x,x))
+print_('else instance (Sym.Cons x y tail, DoVerbForAttr event verb tag "" x y pursi pursx newTail, Sym.Cons xx yy newTail, PXTagPreAttrName event payload verb True tag xx yy pursx purso trailing) => PXTagPreAttrName event payload verb False tag verb tail pursi purso trailing')
 print_('--')
-print_('class PXTagAttrName (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb hasAttributed tag head tail pursi -> purso trailing')
+print_('class PXTagAttrName (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb hasAttributed tag head tail pursi -> purso trailing')
 for x in string.ascii_lowercase+'-'+string.digits:
-  print_('instance (Sym.Cons x y tail, PXTagAttrName verb hasAttributed tag x y pursi purso trailing) => PXTagAttrName verb hasAttributed tag "%s" tail pursi purso trailing' % x)
-print_('instance (Sym.Cons x y tail, PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing) => PXTagAttrName verb hasAttributed tag "=" tail pursi purso trailing')
+  print_('instance (Sym.Cons x y tail, PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing) => PXTagAttrName event payload verb hasAttributed tag "%s" tail pursi purso trailing' % x)
+print_('instance (Sym.Cons x y tail, PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso trailing) => PXTagAttrName event payload verb hasAttributed tag "=" tail pursi purso trailing')
 for x in WHITESPACE:
-  print_('instance (Sym.Cons x y tail, PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing) => PXTagAttrName verb hasAttributed tag "%s" tail pursi purso trailing' % x)
+  print_('instance (Sym.Cons x y tail, PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso trailing) => PXTagAttrName event payload verb hasAttributed tag "%s" tail pursi purso trailing' % x)
 print_('--')
-print_('class PXTagPostAttrName (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb hasAttributed tag head tail pursi -> purso trailing')
+print_('class PXTagPostAttrName (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb hasAttributed tag head tail pursi -> purso trailing')
 for x in WHITESPACE:
-  print_('instance (Sym.Cons x y tail, PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing) => PXTagPostAttrName verb hasAttributed tag "%s" tail pursi purso trailing' % x)
-print_('instance (Sym.Cons x y tail, PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing) => PXTagPostAttrName verb hasAttributed tag "=" tail pursi purso trailing')
+  print_('instance (Sym.Cons x y tail, PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso trailing) => PXTagPostAttrName event payload verb hasAttributed tag "%s" tail pursi purso trailing' % x)
+print_('instance (Sym.Cons x y tail, PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso trailing) => PXTagPostAttrName event payload verb hasAttributed tag "=" tail pursi purso trailing')
 print_('--')
-print_('class PXTagPreAttrValue (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb hasAttributed tag head tail pursi -> purso trailing')
+print_('class PXTagPreAttrValue (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb hasAttributed tag head tail pursi -> purso trailing')
 for x in WHITESPACE:
-  print_('instance (Sym.Cons x y tail, PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing) => PXTagPreAttrValue verb hasAttributed tag "%s" tail pursi purso trailing' % x)
-print_('instance (Sym.Cons x y tail, PXTagAttrValue verb hasAttributed tag x y pursi purso trailing) => PXTagPreAttrValue verb hasAttributed tag "\\"" tail pursi purso trailing')
+  print_('instance (Sym.Cons x y tail, PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso trailing) => PXTagPreAttrValue event payload verb hasAttributed tag "%s" tail pursi purso trailing' % x)
+print_('instance (Sym.Cons x y tail, PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing) => PXTagPreAttrValue event payload verb hasAttributed tag "\\"" tail pursi purso trailing')
 print_('--')
-print_('class PXTagAttrValue (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb hasAttributed tag head tail pursi -> purso trailing')
+print_('class PXTagAttrValue (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (hasAttributed :: Boolean) (tag :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb hasAttributed tag head tail pursi -> purso trailing')
 for x in [y for y in (string.ascii_lowercase+string.ascii_uppercase+string.digits+':,;\'!@#$%^&*()_-=`~<>/.')]+['\\\\']+WHITESPACE:
-  print_('instance (Sym.Cons x y tail, PXTagAttrValue verb hasAttributed tag x y pursi purso trailing) => PXTagAttrValue verb hasAttributed tag "%s" tail pursi purso trailing' % x)
-print_('instance (Sym.Cons x y tail, PXTagPreAttrName verb hasAttributed tag x y pursi purso trailing) => PXTagAttrValue verb hasAttributed tag "\\"" tail pursi purso trailing')
-print_('class PXBody (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb tail pursi -> purso trailing')
+  print_('instance (Sym.Cons x y tail, PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing) => PXTagAttrValue event payload verb hasAttributed tag "%s" tail pursi purso trailing' % x)
+print_('instance (Sym.Cons x y tail, PXTagPreAttrName event payload verb hasAttributed tag x y pursi purso trailing) => PXTagAttrValue event payload verb hasAttributed tag "\\"" tail pursi purso trailing')
+print_('class PXBody (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb tail pursi -> purso trailing')
 print_('''
 class CommendEndCandidate2 (head :: Symbol) (tail :: Symbol) (trailing :: Symbol) | head tail -> trailing
 instance CommendEndCandidate2 ">" tail tail
@@ -123,41 +124,64 @@ class CommendEndCandidate1 (head :: Symbol) (tail :: Symbol) (trailing :: Symbol
 class SkipUntilCommentEnd (head :: Symbol) (tail :: Symbol) (trailing :: Symbol) | head tail -> trailing
 instance (Sym.Cons x y tail, CommendEndCandidate1 x y trailing)  => SkipUntilCommentEnd "-" tail trailing
 else instance (Sym.Cons x y tail, SkipUntilCommentEnd x y trailing) => SkipUntilCommentEnd anything tail trailing
-class CloseOrRepeat (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | verb head tail pursi -> purso trailing
-instance CloseOrRepeat verb "/" tail purs purs tail
+class CloseOrRepeat (event :: Type -> Type) (payload :: Type) (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (pursi :: Row Type) (purso :: Row Type) (trailing :: Symbol) | event payload verb head tail pursi -> purso trailing
+instance CloseOrRepeat event payload verb "/" tail purs purs tail
 else instance
   ( Sym.Cons "-" y tail
   , Sym.Cons "-" yy y
   , Sym.Cons x yyy yy
   , SkipUntilCommentEnd x yyy trailing
   , Sym.Cons mm bb trailing
-  , PXBody verb mm bb pursi purso newTrailing
+  , PXBody event payload verb mm bb pursi purso newTrailing
   ) =>
-  CloseOrRepeat verb "!" tail pursi purso newTrailing
-else instance (PXTagPreName verb anything tail () pursm trailing, Row.Union pursi pursm pursz, Sym.Cons x y trailing, PXBody verb x y pursz purso newTrailing) => CloseOrRepeat verb anything tail pursi purso newTrailing
-instance (Sym.Cons x y tail, CloseOrRepeat verb x y pursi purso trailing) => PXBody verb "<" tail pursi purso trailing
-else instance (Sym.Cons x y tail, DoVerbForDOM verb "" x y pursi pursx newTail, Sym.Cons xx yy newTail, PXBody verb xx yy pursx purso trailing) => PXBody verb verb tail pursi purso trailing
-else instance (Sym.Cons x y tail, PXBody verb x y pursi purso trailing) => PXBody verb anything tail pursi purso trailing''')
+  CloseOrRepeat event payload verb "!" tail pursi purso newTrailing
+else instance (PXTagPreName event payload verb anything tail () pursm trailing, Row.Union pursi pursm pursz, Sym.Cons x y trailing, PXBody event payload verb x y pursz purso newTrailing) => CloseOrRepeat event payload verb anything tail pursi purso newTrailing
+instance (Sym.Cons x y tail, CloseOrRepeat event payload verb x y pursi purso trailing) => PXBody event payload verb "<" tail pursi purso trailing
+else instance (Sym.Cons x y tail, DoVerbForDOM event payload verb "" x y pursi pursx newTail, Sym.Cons xx yy newTail, PXBody event payload verb xx yy pursx purso trailing) => PXBody event payload verb verb tail pursi purso trailing
+else instance (Sym.Cons x y tail, PXBody event payload verb x y pursi purso trailing) => PXBody event payload verb anything tail pursi purso trailing''')
 print_('''
-class PursxToElement (rl :: RL.RowList Type) (r :: Row Type) | rl -> r where
+
+class
+  Plus event <=
+  PursxToElement event payload (rl :: RL.RowList Type) (r :: Row Type)
+  | rl -> event payload r where
   pursxToElement
-    :: forall proxy dom engine
+    :: forall proxy
      . proxy rl
     -> { | r }
-    -> { cache :: Object.Object Boolean, element :: Element_ dom engine }
+    -> { cache :: Object.Object Boolean, element :: Element event payload }
+
+instance pursxToElementConsElt ::
+  ( Row.Cons key (PursxElement event payload) r' r
+  , PursxToElement event payload rest r
+  , IsSymbol key
+  ) =>
+  PursxToElement event payload (RL.Cons key (PursxElement event payload) rest) r where
+  pursxToElement _ r =
+    let
+      { cache, element } = pursxToElement (Proxy :: Proxy rest) r
+    in
+      { cache: Object.insert (reflectSymbol pxk) false cache
+      , element: Element \parent di ->
+          (let Element y = pxe in y) (reflectSymbol pxk) di
+            <|> (let Element y = element in y) parent di
+      }
+    where
+    pxk = Proxy :: _ key
+    PursxElement pxe = get pxk r
 
-instance pursxToElementConsAttr ::
-  ( Row.Cons key (Event (Attribute deku)) r' r
-  , PursxToElement rest r
+else instance pursxToElementConsAttr ::
+  ( Row.Cons key (event (Attribute deku)) r' r
+  , PursxToElement event payload rest r
   , IsSymbol key
   ) =>
-  PursxToElement (RL.Cons key (Event (Attribute deku)) rest) r where
+  PursxToElement event payload (RL.Cons key (event (Attribute deku)) rest) r where
   pursxToElement _ r =
     let
       { cache, element } = pursxToElement (Proxy :: Proxy rest) r
     in
       { cache: Object.insert (reflectSymbol pxk) true cache
-      , element: \parent di@(DOMInterpret { setAttribute }) ->
+      , element: Element \parent di@(DOMInterpret { setAttribute }) ->
           map
             ( lcmap unsafeUnAttribute
                 ( \{ key, value } -> setAttribute
@@ -168,78 +192,66 @@ class PursxToElement (rl :: RL.RowList Type) (r :: Row Type) | rl -> r where
                 )
             )
             (get pxk r)
-            <|> element parent di
+            <|> (let Element y = element in y) parent di
       }
     where
     pxk = Proxy :: _ key
 
-instance pursxToElementConsElt ::
-  ( Row.Cons key PursxElement r' r
-  , PursxToElement rest r
-  , IsSymbol key
-  ) =>
-  PursxToElement (RL.Cons key PursxElement rest) r where
-  pursxToElement _ r =
-    let
-      { cache, element } = pursxToElement (Proxy :: Proxy rest) r
-    in
-      { cache: Object.insert (reflectSymbol pxk) false cache
-      , element: \parent di -> pxe (reflectSymbol pxk) di
-          <|> element parent di
-      }
-    where
-    pxk = Proxy :: _ key
-    PursxElement pxe = get pxk r
-
 instance pursxToElementNil ::
-  PursxToElement RL.Nil r where
-  pursxToElement _ _ = { cache: Object.empty, element: \_ _ -> empty }
+  Plus event =>
+  PursxToElement event payload RL.Nil r where
+  pursxToElement _ _ = { cache: Object.empty, element: Element \_ _ -> empty }
 
 psx
-  :: forall proxy (html :: Symbol)
+  :: forall event payload proxy (html :: Symbol)
    . IsSymbol html
-  => PXStart "~" " " html ()
-  => PursxToElement RL.Nil ()
+  => PXStart event payload "~" " " html ()
+  => PursxToElement event payload RL.Nil ()
+  => IsEvent event
   => proxy html
-  -> Element
+  -> Element event payload
 psx px = makePursx px {}
 
 makePursx
-  :: forall proxy (html :: Symbol) r rl
+  :: forall event payload proxy (html :: Symbol) r rl
    . IsSymbol html
-  => PXStart "~" " " html r
+  => PXStart event payload "~" " " html r
   => RL.RowToList r rl
-  => PursxToElement rl r
+  => PursxToElement event payload rl r
+  => IsEvent event
   => proxy html
   -> { | r }
-  -> Element
+  -> Element event payload
 makePursx = makePursx' (Proxy :: _ "~")
 
 makePursx'
-  :: forall verb proxyA proxyB (html :: Symbol) r rl
+  :: forall event payload verb proxyA proxyB (html :: Symbol) r rl
    . IsSymbol html
   => IsSymbol verb
-  => PXStart verb " " html r
+  => PXStart event payload verb " " html r
   => RL.RowToList r rl
-  => PursxToElement rl r
+  => PursxToElement event payload rl r
+  => IsEvent event
   => proxyA verb
   -> proxyB html
   -> { | r }
-  -> Element
-makePursx' verb html r parent di@(DOMInterpret { makePursx, ids }) = keepLatest
-  ( (sample_ ids (pure unit)) <#> \me ->
-      let
-        { cache, element } = pursxToElement (Proxy :: _ rl) r
-      in
-        ( pure $ makePursx
-            { id: me
-            , parent
-            , cache
-            , html: reflectSymbol html
-            , verb: reflectSymbol verb
-            }
-        ) <|> element me di
-  )
+  -> Element event payload
+makePursx' verb html r = Element go
+  where
+  go parent di@(DOMInterpret { makePursx: mpx, ids }) = keepLatest
+    ( (sample_ ids (pure unit)) <#> \me ->
+        let
+          { cache, element } = pursxToElement (Proxy :: _ rl) r
+        in
+          ( pure $ mpx
+              { id: me
+              , parent
+              , cache
+              , html: reflectSymbol html
+              , verb: reflectSymbol verb
+              }
+          ) <|> (let Element y = element in y) me di
+    )
 
 infixr 5 makePursx as ~~
 
diff --git a/src/Deku/Control.purs b/src/Deku/Control.purs
index 75bcd697..5ca53aad 100644
--- a/src/Deku/Control.purs
+++ b/src/Deku/Control.purs
@@ -9,52 +9,53 @@ module Deku.Control
 
 import Prelude
 
+import Control.Plus (class Plus)
 import Data.Distributive (distribute)
 import Data.Foldable (oneOf)
 import Deku.Attribute (Attribute, unsafeUnAttribute)
-import Deku.Core (DOMInterpret(..), Element, Element', Element_)
+import Deku.Core (DOMInterpret(..), Element(..))
 import FRP.Behavior (sample_)
-import FRP.Event (Event, keepLatest)
+import FRP.Event (class IsEvent, Event, keepLatest)
 import Web.DOM as Web.DOM
 
 ----
 unsafeElement
-  :: forall dom engine
-   . DOMInterpret dom engine
+  :: forall event payload
+   . DOMInterpret event payload
   -> String
   -> String
   -> String
-  -> dom
-  -> engine
+  -> payload
 unsafeElement (DOMInterpret { makeElement }) id parent tag = makeElement
   { id, parent, tag }
 
 unsafeText
-  :: forall dom engine
-   . DOMInterpret dom engine
+  :: forall event payload
+   . DOMInterpret event payload
   -> String
   -> String
-  -> dom
-  -> engine
+  -> payload
 unsafeText (DOMInterpret { makeText }) id parent = makeText
   { id, parent }
 
 unsafeSetText
-  :: forall dom engine
-   . DOMInterpret dom engine
+  :: forall event payload
+   . Functor event
+  => DOMInterpret event payload
   -> String
-  -> Event String
-  -> Element' dom engine
+  -> event String
+  -> event payload
 unsafeSetText (DOMInterpret { setText }) id txt = map
   (setText <<< { id, text: _ })
   txt
 
 unsafeSetAttribute
-  :: forall element dom engine
-   . DOMInterpret dom engine
+  :: forall element event payload
+   . Functor event
+  => DOMInterpret event payload
   -> String
-  -> Event (Attribute element)
-  -> Element' dom engine
+  -> event (Attribute element)
+  -> event payload
 unsafeSetAttribute (DOMInterpret { setAttribute }) id atts = map
   ( setAttribute <<< (\{ key, value } -> { id, key, value }) <<<
       unsafeUnAttribute
@@ -62,51 +63,68 @@ unsafeSetAttribute (DOMInterpret { setAttribute }) id atts = map
   (atts)
 
 elementify
-  :: forall element dom engine
-   . String
-  -> (Event (Attribute element))
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
-elementify tag atts children parent di@(DOMInterpret { ids }) = keepLatest
-  ( (sample_ ids (pure unit)) <#> \me ->
-      oneOf $
-        [ pure (unsafeElement di me parent tag)
-        , unsafeSetAttribute di me atts
-        ]
-          <> (map (\kid -> kid me di) children)
-  )
+  :: forall element event payload
+   . IsEvent event
+  => String
+  -> (event (Attribute element))
+  -> Array (Element event payload)
+  -> Element event payload
+elementify tag atts children = Element go
+  where
+  go parent di@(DOMInterpret { ids }) = keepLatest
+    ( (sample_ ids (pure unit)) <#> \me ->
+        oneOf $
+          [ pure (unsafeElement di me parent tag)
+          , unsafeSetAttribute di me atts
+          ]
+            <>
+              ( map (\kid -> kid me di)
+                  (map (\y -> let (Element x) = y in x) children)
+              )
+    )
 
 text
-  :: Event String
-  -> Element
-text txt parent di@(DOMInterpret { ids }) = keepLatest
-  ( (sample_ ids (pure unit)) <#> \me ->
-      oneOf
-        [ pure (unsafeText di me parent)
-        , unsafeSetText di me txt
-        ]
-  )
+  :: forall event payload
+   . IsEvent event
+  => event String
+  -> Element event payload
+text txt = Element go
+  where
+  go parent di@(DOMInterpret { ids }) = keepLatest
+    ( (sample_ ids (pure unit)) <#> \me ->
+        oneOf
+          [ pure (unsafeText di me parent)
+          , unsafeSetText di me txt
+          ]
+    )
 
-text_ :: String -> Element
+text_ :: forall event payload. IsEvent event => String -> Element event payload
 text_ txt = text (pure txt)
 
 deku
-  :: forall dom engine
-   . Web.DOM.Element
-  -> Element_ dom engine
-  -> DOMInterpret dom engine
-  -> Event (dom -> engine)
+  :: forall event payload
+   . IsEvent event
+  => Web.DOM.Element
+  -> Element event payload
+  -> DOMInterpret event payload
+  -> event payload
 deku root elts di@(DOMInterpret { ids, makeRoot }) =
   keepLatest
     ( (sample_ ids (pure unit)) <#> \me ->
         oneOf $
-          [ pure (makeRoot { id: me, root }),
-           (elts me di)]
+          [ pure (makeRoot { id: me, root })
+          , (((\y -> let Element x = y in x) elts) me di)
+          ]
     )
 
 many :: forall a b. Event a -> (a -> Array b) -> Event b
 many event f = keepLatest
   (event <#> \e -> oneOf (map pure (f e)))
 
-flatten :: forall dom engine. Array (Element_ dom engine) -> Element_ dom engine
-flatten a = (map <<< map) oneOf (map distribute (distribute a))
\ No newline at end of file
+flatten
+  :: forall event payload
+   . Plus event
+  => Array (Element event payload)
+  -> Element event payload
+flatten a = Element $ (map <<< map) oneOf
+  (map distribute (distribute $ map (\y -> let (Element x) = y in x) a))
\ No newline at end of file
diff --git a/src/Deku/Core.purs b/src/Deku/Core.purs
index f36a1bcb..a9a0c46b 100644
--- a/src/Deku/Core.purs
+++ b/src/Deku/Core.purs
@@ -3,50 +3,24 @@ module Deku.Core where
 import Prelude
 
 import Data.Either (Either)
-import Data.Maybe (Maybe)
-import Data.Nullable (Nullable)
 import Deku.Attribute (AttributeValue)
 import Effect (Effect)
-import FRP.Behavior (Behavior)
-import FRP.Event (Event)
+import FRP.Behavior (ABehavior)
 import Foreign.Object (Object)
 import Web.DOM as Web.DOM
 
-type Element' dom engine = Event (dom -> engine)
-type Element_ dom engine =
-  String -> DOMInterpret dom engine -> Event (dom -> engine)
+newtype Element event payload = Element
+  (String -> DOMInterpret event payload -> event payload)
 
-type Element =
-  forall dom engine. String -> DOMInterpret dom engine -> Event (dom -> engine)
-
-type Subgraph_ index env push dom engine =
-  -- the index we're creating at
-  index
-  -- the pusher for the subgraph
-  -> (push -> Effect Unit)
-  -- an event the subgraph can bind to
-  -> Event (Either env push)
-  -- the subgraph
-  -> Element_ dom engine
-
-type Subgraph index env push =
+type Subgraph index env push event payload =
   -- the index we're creating at
   index
   -- the pusher for the subgraph
   -> (push -> Effect Unit)
   -- an event the subgraph can bind to
-  -> Event (Either env push)
+  -> event (Either env push)
   -- the subgraph
-  -> Element
-
-type Ie index env =
-  { pos :: Int
-  , index :: index
-  , env :: Maybe env
-  }
-
-type Pie push index env =
-  { pos :: Int, index :: index, env :: Nullable (Either env push) }
+  -> Element event payload
 
 type MakeElement =
   { id :: String
@@ -64,10 +38,10 @@ type SetAttribute =
   , key :: String
   , value :: AttributeValue
   }
-type MakeSubgraph index env push dom engine =
+type MakeSubgraph index env push event payload =
   { id :: String
   , parent :: String
-  , scenes :: Subgraph_ index env push dom engine
+  , scenes :: Subgraph index env push event payload
   }
 type MakePortal =
   { id :: String
@@ -106,35 +80,31 @@ type SendSubgraphToTop index =
   , pos :: Int
   }
 
-newtype DOMInterpret dom engine = DOMInterpret
-  { ids :: Behavior String
-  , makeRoot :: MakeRoot -> dom -> engine
-  , makeElement :: MakeElement -> dom -> engine
-  , makeText :: MakeText -> dom -> engine
-  , makePursx :: MakePursx -> dom -> engine
-  , makePortal :: MakePortal -> dom -> engine
-  , makeGateway :: MakeGateway -> dom -> engine
-  , setPortal :: SetPortal -> dom -> engine
+newtype DOMInterpret event payload = DOMInterpret
+  { ids :: ABehavior event String
+  , makeRoot :: MakeRoot -> payload
+  , makeElement :: MakeElement -> payload
+  , makeText :: MakeText -> payload
+  , makePursx :: MakePursx -> payload
+  , makePortal :: MakePortal -> payload
+  , makeGateway :: MakeGateway -> payload
+  , setPortal :: SetPortal -> payload
   , makeSubgraph ::
       forall index env push
-       . MakeSubgraph index env push dom engine
-      -> dom
-      -> engine
-  , setAttribute :: SetAttribute -> dom -> engine
+       . MakeSubgraph index env push event payload
+      -> payload
+  , setAttribute :: SetAttribute -> payload
   , sendSubgraphToTop ::
       forall index
        . SendSubgraphToTop index
-      -> dom
-      -> engine
+      -> payload
   , removeSubgraph ::
       forall index
        . RemoveSubgraph index
-      -> dom
-      -> engine
+      -> payload
   , insertOrUpdateSubgraph ::
       forall index env
        . InsertOrUpdateSubgraph index env
-      -> dom
-      -> engine
-  , setText :: SetText -> dom -> engine
+      -> payload
+  , setText :: SetText -> payload
   }
\ No newline at end of file
diff --git a/src/Deku/DOM.purs b/src/Deku/DOM.purs
index 66fec9a3..64c84d3a 100644
--- a/src/Deku/DOM.purs
+++ b/src/Deku/DOM.purs
@@ -131,11 +131,11 @@ module Deku.DOM
   , Width(..)
   , Xtype(..)
   , OnAbort(..)
-  , OnAnimationcancel(..)
-  , OnAnimationend(..)
-  , OnAnimationiteration(..)
-  , OnAnimationstart(..)
-  , OnAuxclick(..)
+  , OnAnimationcancel (..)
+  , OnAnimationend (..)
+  , OnAnimationiteration (..)
+  , OnAnimationstart (..)
+  , OnAuxclick (..)
   , OnBlur(..)
   , OnError(..)
   , OnFocus(..)
@@ -177,7 +177,7 @@ module Deku.DOM
   , OnMouseout(..)
   , OnMouseover(..)
   , OnMouseup(..)
-  , OnMousewheel(..)
+  , OnMousewheel  (..)
   , OnWheel(..)
   , OnPause(..)
   , OnPlay(..)
@@ -190,8 +190,8 @@ module Deku.DOM
   , OnPointerout(..)
   , OnPointerenter(..)
   , OnPointerleave(..)
-  , OnPointerlockchange(..)
-  , OnPointerlockerror(..)
+  , OnPointerlockchange (..)
+  , OnPointerlockerror (..)
   , OnProgress(..)
   , OnRatechange(..)
   , OnReset(..)
@@ -203,17 +203,17 @@ module Deku.DOM
   , OnSelect(..)
   , OnSelectstart(..)
   , OnSelectionchange(..)
-  , OnShow(..)
+  , OnShow (..)
   , OnSlotchange(..)
   , OnStalled(..)
   , OnSubmit(..)
   , OnSuspend(..)
   , OnTimeupdate(..)
   , OnVolumechange(..)
-  , OnTouchcancel(..)
-  , OnTouchend(..)
-  , OnTouchmove(..)
-  , OnTouchstart(..)
+  , OnTouchcancel  (..)
+  , OnTouchend  (..)
+  , OnTouchmove  (..)
+  , OnTouchstart  (..)
   , OnTransitioncancel(..)
   , OnTransitionend(..)
   , OnTransitionrun(..)
@@ -592,22 +592,11 @@ module Deku.DOM
 
 import Prelude hiding (map)
 
-import Control.Alt ((<|>))
 import Control.Plus (empty)
-import Data.Exists (Exists, mkExists, runExists)
-import Data.Foldable (foldl)
-import Data.Functor as F
-import Data.Hashable (class Hashable)
-import Data.Map (Map)
-import Deku.Core ( Element', Element_)
-import Data.Maybe (Maybe(..))
-import Data.Tuple (curry)
-import Data.Tuple.Nested (type (/\), (/\))
-import Deku.Attribute (class Attr, unsafeAttribute, prop', cb', Cb, Attribute, unsafeUnAttributeArray)
-import Deku.Control(elementify, text)
-import Deku.Core (DOMInterpret(..))
-import FRP.Behavior (Behavior, sample_)
-import FRP.Event (Event, keepLatest)
+import Deku.Core (Element)
+import Deku.Attribute (class Attr, Attribute, Cb, cb', prop', unsafeAttribute)
+import Deku.Control (elementify)
+import FRP.Event (class IsEvent)
 
 class TagToDeku (tag :: Symbol) (deku :: Type) | tag -> deku
 
@@ -742,11 +731,11 @@ data Value = Value
 data Width = Width
 data Xtype = Xtype
 data OnAbort = OnAbort
-data OnAnimationcancel = OnAnimationcancel
-data OnAnimationend = OnAnimationend
-data OnAnimationiteration = OnAnimationiteration
-data OnAnimationstart = OnAnimationstart
-data OnAuxclick = OnAuxclick
+data OnAnimationcancel  = OnAnimationcancel
+data OnAnimationend  = OnAnimationend
+data OnAnimationiteration  = OnAnimationiteration
+data OnAnimationstart  = OnAnimationstart
+data OnAuxclick  = OnAuxclick
 data OnBlur = OnBlur
 data OnError = OnError
 data OnFocus = OnFocus
@@ -788,7 +777,7 @@ data OnMousemove = OnMousemove
 data OnMouseout = OnMouseout
 data OnMouseover = OnMouseover
 data OnMouseup = OnMouseup
-data OnMousewheel = OnMousewheel
+data OnMousewheel   = OnMousewheel
 data OnWheel = OnWheel
 data OnPause = OnPause
 data OnPlay = OnPlay
@@ -801,8 +790,8 @@ data OnPointerover = OnPointerover
 data OnPointerout = OnPointerout
 data OnPointerenter = OnPointerenter
 data OnPointerleave = OnPointerleave
-data OnPointerlockchange = OnPointerlockchange
-data OnPointerlockerror = OnPointerlockerror
+data OnPointerlockchange  = OnPointerlockchange
+data OnPointerlockerror  = OnPointerlockerror
 data OnProgress = OnProgress
 data OnRatechange = OnRatechange
 data OnReset = OnReset
@@ -814,17 +803,17 @@ data OnSeeking = OnSeeking
 data OnSelect = OnSelect
 data OnSelectstart = OnSelectstart
 data OnSelectionchange = OnSelectionchange
-data OnShow = OnShow
+data OnShow  = OnShow
 data OnSlotchange = OnSlotchange
 data OnStalled = OnStalled
 data OnSubmit = OnSubmit
 data OnSuspend = OnSuspend
 data OnTimeupdate = OnTimeupdate
 data OnVolumechange = OnVolumechange
-data OnTouchcancel = OnTouchcancel
-data OnTouchend = OnTouchend
-data OnTouchmove = OnTouchmove
-data OnTouchstart = OnTouchstart
+data OnTouchcancel   = OnTouchcancel
+data OnTouchend   = OnTouchend
+data OnTouchmove   = OnTouchmove
+data OnTouchstart   = OnTouchstart
 data OnTransitioncancel = OnTransitioncancel
 data OnTransitionend = OnTransitionend
 data OnTransitionrun = OnTransitionrun
@@ -837,496 +826,373 @@ instance Attr Input_ Accept String where
   attr Accept value = unsafeAttribute { key: "accept", value: prop' value }
 
 instance Attr Form_ AcceptCharset String where
-  attr AcceptCharset value = unsafeAttribute
-    { key: "accept-charset", value: prop' value }
+  attr AcceptCharset value = unsafeAttribute { key: "accept-charset", value: prop' value }
 
 instance Attr A_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Abbr_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Acronym_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Address_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Applet_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Area_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Article_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Aside_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Audio_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr B_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Base_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Basefont_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Bdi_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Bdo_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Big_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Blockquote_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Body_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Br_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Button_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Canvas_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Caption_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Center_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Cite_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Code_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Col_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Colgroup_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Xdata_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Datalist_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Dd_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Del_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Details_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Dfn_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Dialog_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Dir_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Div_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Dl_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Dt_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Em_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Embed_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Fieldset_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Figcaption_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Figure_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Font_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Footer_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Form_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Frame_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Frameset_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr H1_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr H2_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr H3_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr H4_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr H5_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr H6_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Head_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Header_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Hr_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Html_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr I_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Iframe_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Img_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Input_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Ins_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Kbd_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Label_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Legend_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Li_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Link_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Main_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Map_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Mark_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Meta_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Meter_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Nav_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Noframes_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Noscript_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Object_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Ol_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Optgroup_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Option_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Output_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr P_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Param_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Picture_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Pre_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Progress_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Q_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Rp_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Rt_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Ruby_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr S_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Samp_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Script_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Section_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Select_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Small_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Source_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Span_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Strike_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Strong_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Style_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Sub_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Summary_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Sup_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Svg_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Table_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Tbody_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Td_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Template_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Textarea_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Tfoot_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Th_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Thead_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Time_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Title_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Tr_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Track_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Tt_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr U_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Ul_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Var_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Video_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Wbr_ Accesskey String where
-  attr Accesskey value = unsafeAttribute
-    { key: "accesskey", value: prop' value }
+  attr Accesskey value = unsafeAttribute { key: "accesskey", value: prop' value }
 
 instance Attr Form_ Action String where
   attr Action value = unsafeAttribute { key: "action", value: prop' value }
@@ -1392,524 +1258,394 @@ instance Attr Script_ Async String where
   attr Async value = unsafeAttribute { key: "async", value: prop' value }
 
 instance Attr A_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Abbr_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Acronym_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Address_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Applet_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Area_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Article_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Aside_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Audio_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr B_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Base_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Basefont_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Bdi_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Bdo_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Big_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Blockquote_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Body_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Br_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Button_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Canvas_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Caption_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Center_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Cite_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Code_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Col_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Colgroup_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Xdata_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Datalist_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Dd_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Del_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Details_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Dfn_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Dialog_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Dir_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Div_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Dl_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Dt_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Em_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Embed_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Fieldset_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Figcaption_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Figure_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Font_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Footer_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Form_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Frame_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Frameset_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr H1_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr H2_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr H3_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr H4_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr H5_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr H6_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Head_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Header_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Hr_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Html_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr I_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Iframe_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Img_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Input_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Ins_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Kbd_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Label_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Legend_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Li_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Link_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Main_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Map_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Mark_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Meta_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Meter_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Nav_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Noframes_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Noscript_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Object_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Ol_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Optgroup_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Option_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Output_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr P_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Param_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Picture_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Pre_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Progress_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Q_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Rp_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Rt_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Ruby_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr S_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Samp_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Script_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Section_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Select_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Small_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Source_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Span_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Strike_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Strong_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Style_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Sub_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Summary_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Sup_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Svg_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Table_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Tbody_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Td_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Template_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Textarea_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Tfoot_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Th_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Thead_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Time_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Title_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Tr_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Track_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Tt_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr U_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Ul_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Var_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Video_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Wbr_ Autocapitalize String where
-  attr Autocapitalize value = unsafeAttribute
-    { key: "autocapitalize", value: prop' value }
+  attr Autocapitalize value = unsafeAttribute { key: "autocapitalize", value: prop' value }
 
 instance Attr Form_ Autocomplete String where
-  attr Autocomplete value = unsafeAttribute
-    { key: "autocomplete", value: prop' value }
+  attr Autocomplete value = unsafeAttribute { key: "autocomplete", value: prop' value }
 
 instance Attr Input_ Autocomplete String where
-  attr Autocomplete value = unsafeAttribute
-    { key: "autocomplete", value: prop' value }
+  attr Autocomplete value = unsafeAttribute { key: "autocomplete", value: prop' value }
 
 instance Attr Select_ Autocomplete String where
-  attr Autocomplete value = unsafeAttribute
-    { key: "autocomplete", value: prop' value }
+  attr Autocomplete value = unsafeAttribute { key: "autocomplete", value: prop' value }
 
 instance Attr Textarea_ Autocomplete String where
-  attr Autocomplete value = unsafeAttribute
-    { key: "autocomplete", value: prop' value }
+  attr Autocomplete value = unsafeAttribute { key: "autocomplete", value: prop' value }
 
 instance Attr Button_ Autofocus String where
-  attr Autofocus value = unsafeAttribute
-    { key: "autofocus", value: prop' value }
+  attr Autofocus value = unsafeAttribute { key: "autofocus", value: prop' value }
 
 instance Attr Input_ Autofocus String where
-  attr Autofocus value = unsafeAttribute
-    { key: "autofocus", value: prop' value }
+  attr Autofocus value = unsafeAttribute { key: "autofocus", value: prop' value }
 
 instance Attr Select_ Autofocus String where
-  attr Autofocus value = unsafeAttribute
-    { key: "autofocus", value: prop' value }
+  attr Autofocus value = unsafeAttribute { key: "autofocus", value: prop' value }
 
 instance Attr Textarea_ Autofocus String where
-  attr Autofocus value = unsafeAttribute
-    { key: "autofocus", value: prop' value }
+  attr Autofocus value = unsafeAttribute { key: "autofocus", value: prop' value }
 
 instance Attr Audio_ Autoplay String where
   attr Autoplay value = unsafeAttribute { key: "autoplay", value: prop' value }
@@ -1918,20 +1654,16 @@ instance Attr Video_ Autoplay String where
   attr Autoplay value = unsafeAttribute { key: "autoplay", value: prop' value }
 
 instance Attr Body_ Background String where
-  attr Background value = unsafeAttribute
-    { key: "background", value: prop' value }
+  attr Background value = unsafeAttribute { key: "background", value: prop' value }
 
 instance Attr Table_ Background String where
-  attr Background value = unsafeAttribute
-    { key: "background", value: prop' value }
+  attr Background value = unsafeAttribute { key: "background", value: prop' value }
 
 instance Attr Td_ Background String where
-  attr Background value = unsafeAttribute
-    { key: "background", value: prop' value }
+  attr Background value = unsafeAttribute { key: "background", value: prop' value }
 
 instance Attr Th_ Background String where
-  attr Background value = unsafeAttribute
-    { key: "background", value: prop' value }
+  attr Background value = unsafeAttribute { key: "background", value: prop' value }
 
 instance Attr Body_ Bgcolor String where
   attr Bgcolor value = unsafeAttribute { key: "bgcolor", value: prop' value }
@@ -1979,492 +1711,370 @@ instance Attr Input_ Capture String where
   attr Capture value = unsafeAttribute { key: "capture", value: prop' value }
 
 instance Attr A_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Abbr_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Acronym_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Address_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Applet_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Area_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Article_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Aside_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Audio_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr B_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Base_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Basefont_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Bdi_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Bdo_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Big_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Blockquote_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Body_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Br_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Button_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Canvas_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Caption_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Center_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Cite_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Code_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Col_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Colgroup_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Xdata_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Datalist_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Dd_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Del_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Details_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Dfn_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Dialog_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Dir_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Div_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Dl_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Dt_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Em_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Embed_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Fieldset_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Figcaption_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Figure_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Font_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Footer_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Form_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Frame_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Frameset_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr H1_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr H2_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr H3_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr H4_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr H5_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr H6_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Head_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Header_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Hr_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Html_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr I_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Iframe_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Img_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Input_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Ins_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Kbd_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Label_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Legend_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Li_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Link_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Main_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Map_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Mark_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Meta_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Meter_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Nav_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Noframes_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Noscript_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Object_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Ol_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Optgroup_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Option_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Output_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr P_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Param_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Picture_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Pre_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Progress_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Q_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Rp_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Rt_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Ruby_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr S_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Samp_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Script_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Section_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Select_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Small_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Source_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Span_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Strike_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Strong_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Style_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Sub_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Summary_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Sup_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Svg_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Table_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Tbody_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Td_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Template_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Textarea_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Tfoot_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Th_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Thead_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Time_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Title_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Tr_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Track_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Tt_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr U_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Ul_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Var_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Video_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Wbr_ Challenge String where
-  attr Challenge value = unsafeAttribute
-    { key: "challenge", value: prop' value }
+  attr Challenge value = unsafeAttribute { key: "challenge", value: prop' value }
 
 instance Attr Meta_ Charset String where
   attr Charset value = unsafeAttribute { key: "charset", value: prop' value }
@@ -2881,980 +2491,736 @@ instance Attr Meta_ Content String where
   attr Content value = unsafeAttribute { key: "content", value: prop' value }
 
 instance Attr A_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Abbr_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Acronym_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Address_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Applet_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Area_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Article_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Aside_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Audio_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr B_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Base_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Basefont_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Bdi_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Bdo_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Big_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Blockquote_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Body_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Br_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Button_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Canvas_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Caption_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Center_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Cite_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Code_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Col_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Colgroup_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Xdata_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Datalist_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Dd_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Del_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Details_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Dfn_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Dialog_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Dir_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Div_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Dl_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Dt_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Em_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Embed_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Fieldset_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Figcaption_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Figure_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Font_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Footer_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Form_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Frame_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Frameset_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr H1_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr H2_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr H3_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr H4_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr H5_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr H6_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Head_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Header_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Hr_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Html_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr I_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Iframe_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Img_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Input_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Ins_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Kbd_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Label_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Legend_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Li_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Link_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Main_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Map_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Mark_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Meta_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Meter_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Nav_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Noframes_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Noscript_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Object_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Ol_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Optgroup_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Option_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Output_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr P_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Param_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Picture_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Pre_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Progress_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Q_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Rp_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Rt_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Ruby_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr S_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Samp_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Script_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Section_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Select_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Small_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Source_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Span_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Strike_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Strong_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Style_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Sub_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Summary_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Sup_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Svg_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Table_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Tbody_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Td_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Template_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Textarea_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Tfoot_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Th_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Thead_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Time_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Title_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Tr_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Track_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Tt_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr U_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Ul_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Var_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Video_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr Wbr_ Contenteditable String where
-  attr Contenteditable value = unsafeAttribute
-    { key: "contenteditable", value: prop' value }
+  attr Contenteditable value = unsafeAttribute { key: "contenteditable", value: prop' value }
 
 instance Attr A_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Abbr_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Acronym_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Address_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Applet_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Area_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Article_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Aside_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Audio_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr B_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Base_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Basefont_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Bdi_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Bdo_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Big_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Blockquote_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Body_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Br_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Button_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Canvas_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Caption_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Center_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Cite_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Code_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Col_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Colgroup_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Xdata_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Datalist_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Dd_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Del_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Details_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Dfn_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Dialog_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Dir_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Div_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Dl_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Dt_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Em_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Embed_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Fieldset_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Figcaption_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Figure_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Font_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Footer_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Form_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Frame_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Frameset_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr H1_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr H2_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr H3_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr H4_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr H5_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr H6_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Head_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Header_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Hr_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Html_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr I_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Iframe_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Img_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Input_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Ins_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Kbd_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Label_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Legend_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Li_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Link_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Main_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Map_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Mark_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Meta_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Meter_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Nav_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Noframes_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Noscript_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Object_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Ol_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Optgroup_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Option_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Output_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr P_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Param_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Picture_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Pre_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Progress_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Q_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Rp_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Rt_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Ruby_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr S_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Samp_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Script_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Section_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Select_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Small_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Source_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Span_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Strike_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Strong_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Style_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Sub_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Summary_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Sup_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Svg_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Table_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Tbody_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Td_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Template_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Textarea_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Tfoot_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Th_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Thead_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Time_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Title_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Tr_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Track_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Tt_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr U_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Ul_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Var_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Video_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Wbr_ Contextmenu String where
-  attr Contextmenu value = unsafeAttribute
-    { key: "contextmenu", value: prop' value }
+  attr Contextmenu value = unsafeAttribute { key: "contextmenu", value: prop' value }
 
 instance Attr Audio_ Controls String where
   attr Controls value = unsafeAttribute { key: "controls", value: prop' value }
@@ -3866,24 +3232,19 @@ instance Attr Area_ Coords String where
   attr Coords value = unsafeAttribute { key: "coords", value: prop' value }
 
 instance Attr Audio_ Crossorigin String where
-  attr Crossorigin value = unsafeAttribute
-    { key: "crossorigin", value: prop' value }
+  attr Crossorigin value = unsafeAttribute { key: "crossorigin", value: prop' value }
 
 instance Attr Img_ Crossorigin String where
-  attr Crossorigin value = unsafeAttribute
-    { key: "crossorigin", value: prop' value }
+  attr Crossorigin value = unsafeAttribute { key: "crossorigin", value: prop' value }
 
 instance Attr Link_ Crossorigin String where
-  attr Crossorigin value = unsafeAttribute
-    { key: "crossorigin", value: prop' value }
+  attr Crossorigin value = unsafeAttribute { key: "crossorigin", value: prop' value }
 
 instance Attr Script_ Crossorigin String where
-  attr Crossorigin value = unsafeAttribute
-    { key: "crossorigin", value: prop' value }
+  attr Crossorigin value = unsafeAttribute { key: "crossorigin", value: prop' value }
 
 instance Attr Video_ Crossorigin String where
-  attr Crossorigin value = unsafeAttribute
-    { key: "crossorigin", value: prop' value }
+  attr Crossorigin value = unsafeAttribute { key: "crossorigin", value: prop' value }
 
 instance Attr Iframe_ Csp String where
   attr Csp value = unsafeAttribute { key: "csp", value: prop' value }
@@ -4309,499 +3670,376 @@ instance Attr Area_ Download String where
   attr Download value = unsafeAttribute { key: "download", value: prop' value }
 
 instance Attr A_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Abbr_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Acronym_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Address_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Applet_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Area_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Article_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Aside_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Audio_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr B_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Base_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Basefont_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Bdi_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Bdo_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Big_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Blockquote_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Body_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Br_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Button_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Canvas_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Caption_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Center_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Cite_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Code_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Col_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Colgroup_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Xdata_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Datalist_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Dd_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Del_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Details_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Dfn_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Dialog_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Dir_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Div_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Dl_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Dt_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Em_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Embed_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Fieldset_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Figcaption_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Figure_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Font_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Footer_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Form_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Frame_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Frameset_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr H1_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr H2_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr H3_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr H4_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr H5_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr H6_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Head_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Header_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Hr_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Html_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr I_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Iframe_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Img_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Input_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Ins_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Kbd_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Label_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Legend_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Li_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Link_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Main_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Map_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Mark_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Meta_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Meter_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Nav_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Noframes_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Noscript_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Object_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Ol_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Optgroup_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Option_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Output_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr P_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Param_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Picture_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Pre_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Progress_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Q_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Rp_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Rt_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Ruby_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr S_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Samp_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Script_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Section_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Select_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Small_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Source_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Span_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Strike_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Strong_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Style_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Sub_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Summary_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Sup_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Svg_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Table_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Tbody_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Td_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Template_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Textarea_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Tfoot_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Th_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Thead_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Time_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Title_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Tr_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Track_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Tt_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr U_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Ul_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Var_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Video_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Wbr_ Draggable String where
-  attr Draggable value = unsafeAttribute
-    { key: "draggable", value: prop' value }
+  attr Draggable value = unsafeAttribute { key: "draggable", value: prop' value }
 
 instance Attr Form_ Enctype String where
   attr Enctype value = unsafeAttribute { key: "enctype", value: prop' value }
 
 instance Attr Textarea_ Enterkeyhint String where
-  attr Enterkeyhint value = unsafeAttribute
-    { key: "enterkeyhint", value: prop' value }
+  attr Enterkeyhint value = unsafeAttribute { key: "enterkeyhint", value: prop' value }
 
 instance Attr Label_ For String where
   attr For value = unsafeAttribute { key: "for", value: prop' value }
@@ -4840,44 +4078,34 @@ instance Attr Textarea_ Form String where
   attr Form value = unsafeAttribute { key: "form", value: prop' value }
 
 instance Attr Input_ Formaction String where
-  attr Formaction value = unsafeAttribute
-    { key: "formaction", value: prop' value }
+  attr Formaction value = unsafeAttribute { key: "formaction", value: prop' value }
 
 instance Attr Button_ Formaction String where
-  attr Formaction value = unsafeAttribute
-    { key: "formaction", value: prop' value }
+  attr Formaction value = unsafeAttribute { key: "formaction", value: prop' value }
 
 instance Attr Button_ Formenctype String where
-  attr Formenctype value = unsafeAttribute
-    { key: "formenctype", value: prop' value }
+  attr Formenctype value = unsafeAttribute { key: "formenctype", value: prop' value }
 
 instance Attr Input_ Formenctype String where
-  attr Formenctype value = unsafeAttribute
-    { key: "formenctype", value: prop' value }
+  attr Formenctype value = unsafeAttribute { key: "formenctype", value: prop' value }
 
 instance Attr Button_ Formmethod String where
-  attr Formmethod value = unsafeAttribute
-    { key: "formmethod", value: prop' value }
+  attr Formmethod value = unsafeAttribute { key: "formmethod", value: prop' value }
 
 instance Attr Input_ Formmethod String where
-  attr Formmethod value = unsafeAttribute
-    { key: "formmethod", value: prop' value }
+  attr Formmethod value = unsafeAttribute { key: "formmethod", value: prop' value }
 
 instance Attr Button_ Formnovalidate String where
-  attr Formnovalidate value = unsafeAttribute
-    { key: "formnovalidate", value: prop' value }
+  attr Formnovalidate value = unsafeAttribute { key: "formnovalidate", value: prop' value }
 
 instance Attr Input_ Formnovalidate String where
-  attr Formnovalidate value = unsafeAttribute
-    { key: "formnovalidate", value: prop' value }
+  attr Formnovalidate value = unsafeAttribute { key: "formnovalidate", value: prop' value }
 
 instance Attr Button_ Formtarget String where
-  attr Formtarget value = unsafeAttribute
-    { key: "formtarget", value: prop' value }
+  attr Formtarget value = unsafeAttribute { key: "formtarget", value: prop' value }
 
 instance Attr Input_ Formtarget String where
-  attr Formtarget value = unsafeAttribute
-    { key: "formtarget", value: prop' value }
+  attr Formtarget value = unsafeAttribute { key: "formtarget", value: prop' value }
 
 instance Attr Td_ Headers String where
   attr Headers value = unsafeAttribute { key: "headers", value: prop' value }
@@ -5297,8 +4525,7 @@ instance Attr Link_ Hreflang String where
   attr Hreflang value = unsafeAttribute { key: "hreflang", value: prop' value }
 
 instance Attr Meta_ HttpEquiv String where
-  attr HttpEquiv value = unsafeAttribute
-    { key: "http-equiv", value: prop' value }
+  attr HttpEquiv value = unsafeAttribute { key: "http-equiv", value: prop' value }
 
 instance Attr A_ Icon String where
   attr Icon value = unsafeAttribute { key: "icon", value: prop' value }
@@ -6033,36 +5260,28 @@ instance Attr Wbr_ Id String where
   attr Id value = unsafeAttribute { key: "id", value: prop' value }
 
 instance Attr Iframe_ Importance String where
-  attr Importance value = unsafeAttribute
-    { key: "importance", value: prop' value }
+  attr Importance value = unsafeAttribute { key: "importance", value: prop' value }
 
 instance Attr Img_ Importance String where
-  attr Importance value = unsafeAttribute
-    { key: "importance", value: prop' value }
+  attr Importance value = unsafeAttribute { key: "importance", value: prop' value }
 
 instance Attr Link_ Importance String where
-  attr Importance value = unsafeAttribute
-    { key: "importance", value: prop' value }
+  attr Importance value = unsafeAttribute { key: "importance", value: prop' value }
 
 instance Attr Script_ Importance String where
-  attr Importance value = unsafeAttribute
-    { key: "importance", value: prop' value }
+  attr Importance value = unsafeAttribute { key: "importance", value: prop' value }
 
 instance Attr Link_ Integrity String where
-  attr Integrity value = unsafeAttribute
-    { key: "integrity", value: prop' value }
+  attr Integrity value = unsafeAttribute { key: "integrity", value: prop' value }
 
 instance Attr Script_ Integrity String where
-  attr Integrity value = unsafeAttribute
-    { key: "integrity", value: prop' value }
+  attr Integrity value = unsafeAttribute { key: "integrity", value: prop' value }
 
 instance Attr Img_ Intrinsicsize String where
-  attr Intrinsicsize value = unsafeAttribute
-    { key: "intrinsicsize", value: prop' value }
+  attr Intrinsicsize value = unsafeAttribute { key: "intrinsicsize", value: prop' value }
 
 instance Attr Textarea_ Inputmode String where
-  attr Inputmode value = unsafeAttribute
-    { key: "inputmode", value: prop' value }
+  attr Inputmode value = unsafeAttribute { key: "inputmode", value: prop' value }
 
 instance Attr Img_ Ismap String where
   attr Ismap value = unsafeAttribute { key: "ismap", value: prop' value }
@@ -7211,20 +6430,16 @@ instance Attr Progress_ Max String where
   attr Max value = unsafeAttribute { key: "max", value: prop' value }
 
 instance Attr Input_ Maxlength String where
-  attr Maxlength value = unsafeAttribute
-    { key: "maxlength", value: prop' value }
+  attr Maxlength value = unsafeAttribute { key: "maxlength", value: prop' value }
 
 instance Attr Textarea_ Maxlength String where
-  attr Maxlength value = unsafeAttribute
-    { key: "maxlength", value: prop' value }
+  attr Maxlength value = unsafeAttribute { key: "maxlength", value: prop' value }
 
 instance Attr Input_ Minlength String where
-  attr Minlength value = unsafeAttribute
-    { key: "minlength", value: prop' value }
+  attr Minlength value = unsafeAttribute { key: "minlength", value: prop' value }
 
 instance Attr Textarea_ Minlength String where
-  attr Minlength value = unsafeAttribute
-    { key: "minlength", value: prop' value }
+  attr Minlength value = unsafeAttribute { key: "minlength", value: prop' value }
 
 instance Attr A_ Media String where
   attr Media value = unsafeAttribute { key: "media", value: prop' value }
@@ -7299,8 +6514,7 @@ instance Attr Param_ Name String where
   attr Name value = unsafeAttribute { key: "name", value: prop' value }
 
 instance Attr Form_ Novalidate String where
-  attr Novalidate value = unsafeAttribute
-    { key: "novalidate", value: prop' value }
+  attr Novalidate value = unsafeAttribute { key: "novalidate", value: prop' value }
 
 instance Attr Details_ Open String where
   attr Open value = unsafeAttribute { key: "open", value: prop' value }
@@ -7321,12 +6535,10 @@ instance Attr Area_ Ping String where
   attr Ping value = unsafeAttribute { key: "ping", value: prop' value }
 
 instance Attr Input_ Placeholder String where
-  attr Placeholder value = unsafeAttribute
-    { key: "placeholder", value: prop' value }
+  attr Placeholder value = unsafeAttribute { key: "placeholder", value: prop' value }
 
 instance Attr Textarea_ Placeholder String where
-  attr Placeholder value = unsafeAttribute
-    { key: "placeholder", value: prop' value }
+  attr Placeholder value = unsafeAttribute { key: "placeholder", value: prop' value }
 
 instance Attr Video_ Poster String where
   attr Poster value = unsafeAttribute { key: "poster", value: prop' value }
@@ -7338,492 +6550,370 @@ instance Attr Video_ Preload String where
   attr Preload value = unsafeAttribute { key: "preload", value: prop' value }
 
 instance Attr A_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Abbr_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Acronym_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Address_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Applet_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Area_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Article_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Aside_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Audio_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr B_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Base_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Basefont_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Bdi_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Bdo_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Big_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Blockquote_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Body_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Br_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Button_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Canvas_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Caption_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Center_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Cite_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Code_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Col_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Colgroup_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Xdata_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Datalist_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Dd_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Del_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Details_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Dfn_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Dialog_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Dir_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Div_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Dl_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Dt_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Em_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Embed_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Fieldset_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Figcaption_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Figure_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Font_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Footer_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Form_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Frame_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Frameset_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr H1_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr H2_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr H3_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr H4_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr H5_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr H6_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Head_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Header_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Hr_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Html_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr I_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Iframe_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Img_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Input_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Ins_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Kbd_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Label_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Legend_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Li_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Link_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Main_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Map_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Mark_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Meta_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Meter_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Nav_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Noframes_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Noscript_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Object_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Ol_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Optgroup_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Option_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Output_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr P_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Param_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Picture_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Pre_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Progress_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Q_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Rp_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Rt_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Ruby_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr S_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Samp_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Script_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Section_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Select_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Small_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Source_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Span_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Strike_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Strong_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Style_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Sub_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Summary_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Sup_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Svg_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Table_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Tbody_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Td_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Template_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Textarea_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Tfoot_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Th_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Thead_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Time_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Title_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Tr_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Track_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Tt_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr U_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Ul_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Var_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Video_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Wbr_ Radiogroup String where
-  attr Radiogroup value = unsafeAttribute
-    { key: "radiogroup", value: prop' value }
+  attr Radiogroup value = unsafeAttribute { key: "radiogroup", value: prop' value }
 
 instance Attr Input_ Readonly String where
   attr Readonly value = unsafeAttribute { key: "readonly", value: prop' value }
@@ -7832,28 +6922,22 @@ instance Attr Textarea_ Readonly String where
   attr Readonly value = unsafeAttribute { key: "readonly", value: prop' value }
 
 instance Attr A_ Referrerpolicy String where
-  attr Referrerpolicy value = unsafeAttribute
-    { key: "referrerpolicy", value: prop' value }
+  attr Referrerpolicy value = unsafeAttribute { key: "referrerpolicy", value: prop' value }
 
 instance Attr Area_ Referrerpolicy String where
-  attr Referrerpolicy value = unsafeAttribute
-    { key: "referrerpolicy", value: prop' value }
+  attr Referrerpolicy value = unsafeAttribute { key: "referrerpolicy", value: prop' value }
 
 instance Attr Iframe_ Referrerpolicy String where
-  attr Referrerpolicy value = unsafeAttribute
-    { key: "referrerpolicy", value: prop' value }
+  attr Referrerpolicy value = unsafeAttribute { key: "referrerpolicy", value: prop' value }
 
 instance Attr Img_ Referrerpolicy String where
-  attr Referrerpolicy value = unsafeAttribute
-    { key: "referrerpolicy", value: prop' value }
+  attr Referrerpolicy value = unsafeAttribute { key: "referrerpolicy", value: prop' value }
 
 instance Attr Link_ Referrerpolicy String where
-  attr Referrerpolicy value = unsafeAttribute
-    { key: "referrerpolicy", value: prop' value }
+  attr Referrerpolicy value = unsafeAttribute { key: "referrerpolicy", value: prop' value }
 
 instance Attr Script_ Referrerpolicy String where
-  attr Referrerpolicy value = unsafeAttribute
-    { key: "referrerpolicy", value: prop' value }
+  attr Referrerpolicy value = unsafeAttribute { key: "referrerpolicy", value: prop' value }
 
 instance Attr A_ Rel String where
   attr Rel value = unsafeAttribute { key: "rel", value: prop' value }
@@ -8291,492 +7375,370 @@ instance Attr Colgroup_ Span String where
   attr Span value = unsafeAttribute { key: "span", value: prop' value }
 
 instance Attr A_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Abbr_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Acronym_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Address_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Applet_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Area_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Article_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Aside_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Audio_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr B_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Base_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Basefont_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Bdi_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Bdo_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Big_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Blockquote_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Body_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Br_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Button_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Canvas_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Caption_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Center_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Cite_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Code_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Col_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Colgroup_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Xdata_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Datalist_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Dd_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Del_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Details_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Dfn_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Dialog_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Dir_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Div_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Dl_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Dt_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Em_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Embed_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Fieldset_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Figcaption_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Figure_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Font_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Footer_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Form_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Frame_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Frameset_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr H1_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr H2_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr H3_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr H4_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr H5_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr H6_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Head_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Header_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Hr_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Html_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr I_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Iframe_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Img_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Input_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Ins_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Kbd_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Label_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Legend_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Li_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Link_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Main_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Map_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Mark_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Meta_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Meter_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Nav_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Noframes_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Noscript_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Object_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Ol_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Optgroup_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Option_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Output_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr P_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Param_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Picture_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Pre_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Progress_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Q_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Rp_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Rt_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Ruby_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr S_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Samp_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Script_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Section_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Select_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Small_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Source_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Span_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Strike_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Strong_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Style_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Sub_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Summary_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Sup_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Svg_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Table_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Tbody_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Td_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Template_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Textarea_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Tfoot_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Th_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Thead_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Time_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Title_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Tr_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Track_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Tt_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr U_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Ul_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Var_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Video_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Wbr_ Spellcheck String where
-  attr Spellcheck value = unsafeAttribute
-    { key: "spellcheck", value: prop' value }
+  attr Spellcheck value = unsafeAttribute { key: "spellcheck", value: prop' value }
 
 instance Attr Audio_ Src String where
   attr Src value = unsafeAttribute { key: "src", value: prop' value }
@@ -9937,492 +8899,370 @@ instance Attr Wbr_ Title String where
   attr Title value = unsafeAttribute { key: "title", value: prop' value }
 
 instance Attr A_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Abbr_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Acronym_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Address_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Applet_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Area_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Article_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Aside_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Audio_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr B_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Base_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Basefont_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Bdi_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Bdo_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Big_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Blockquote_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Body_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Br_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Button_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Canvas_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Caption_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Center_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Cite_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Code_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Col_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Colgroup_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Xdata_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Datalist_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Dd_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Del_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Details_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Dfn_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Dialog_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Dir_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Div_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Dl_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Dt_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Em_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Embed_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Fieldset_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Figcaption_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Figure_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Font_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Footer_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Form_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Frame_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Frameset_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr H1_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr H2_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr H3_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr H4_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr H5_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr H6_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Head_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Header_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Hr_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Html_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr I_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Iframe_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Img_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Input_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Ins_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Kbd_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Label_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Legend_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Li_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Link_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Main_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Map_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Mark_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Meta_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Meter_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Nav_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Noframes_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Noscript_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Object_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Ol_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Optgroup_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Option_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Output_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr P_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Param_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Picture_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Pre_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Progress_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Q_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Rp_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Rt_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Ruby_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr S_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Samp_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Script_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Section_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Select_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Small_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Source_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Span_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Strike_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Strong_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Style_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Sub_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Summary_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Sup_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Svg_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Table_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Tbody_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Td_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Template_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Textarea_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Tfoot_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Th_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Thead_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Time_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Title_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Tr_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Track_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Tt_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr U_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Ul_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Var_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Video_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Wbr_ Translate String where
-  attr Translate value = unsafeAttribute
-    { key: "translate", value: prop' value }
+  attr Translate value = unsafeAttribute { key: "translate", value: prop' value }
 
 instance Attr Img_ Usemap String where
   attr Usemap value = unsafeAttribute { key: "usemap", value: prop' value }
@@ -10501,20 +9341,16 @@ instance Attr Link_ Xtype String where
 
 instance Attr anything OnAbort Cb where
   attr OnAbort value = unsafeAttribute { key: "abort", value: cb' value }
-instance Attr anything OnAnimationcancel Cb where
-  attr OnAnimationcancel value = unsafeAttribute
-    { key: "animationcancel ", value: cb' value }
-instance Attr anything OnAnimationend Cb where
-  attr OnAnimationend value = unsafeAttribute
-    { key: "animationend ", value: cb' value }
-instance Attr anything OnAnimationiteration Cb where
-  attr OnAnimationiteration value = unsafeAttribute
-    { key: "animationiteration ", value: cb' value }
-instance Attr anything OnAnimationstart Cb where
-  attr OnAnimationstart value = unsafeAttribute
-    { key: "animationstart ", value: cb' value }
-instance Attr anything OnAuxclick Cb where
-  attr OnAuxclick value = unsafeAttribute { key: "auxclick ", value: cb' value }
+instance Attr anything OnAnimationcancel  Cb where
+  attr OnAnimationcancel  value = unsafeAttribute { key: "animationcancel ", value: cb' value }
+instance Attr anything OnAnimationend  Cb where
+  attr OnAnimationend  value = unsafeAttribute { key: "animationend ", value: cb' value }
+instance Attr anything OnAnimationiteration  Cb where
+  attr OnAnimationiteration  value = unsafeAttribute { key: "animationiteration ", value: cb' value }
+instance Attr anything OnAnimationstart  Cb where
+  attr OnAnimationstart  value = unsafeAttribute { key: "animationstart ", value: cb' value }
+instance Attr anything OnAuxclick  Cb where
+  attr OnAuxclick  value = unsafeAttribute { key: "auxclick ", value: cb' value }
 instance Attr anything OnBlur Cb where
   attr OnBlur value = unsafeAttribute { key: "blur", value: cb' value }
 instance Attr anything OnError Cb where
@@ -10526,8 +9362,7 @@ instance Attr anything OnCancel Cb where
 instance Attr anything OnCanplay Cb where
   attr OnCanplay value = unsafeAttribute { key: "canplay", value: cb' value }
 instance Attr anything OnCanplaythrough Cb where
-  attr OnCanplaythrough value = unsafeAttribute
-    { key: "canplaythrough", value: cb' value }
+  attr OnCanplaythrough value = unsafeAttribute { key: "canplaythrough", value: cb' value }
 instance Attr anything OnChange Cb where
   attr OnChange value = unsafeAttribute { key: "change", value: cb' value }
 instance Attr anything OnClick Cb where
@@ -10535,8 +9370,7 @@ instance Attr anything OnClick Cb where
 instance Attr anything OnClose Cb where
   attr OnClose value = unsafeAttribute { key: "close", value: cb' value }
 instance Attr anything OnContextmenu Cb where
-  attr OnContextmenu value = unsafeAttribute
-    { key: "contextmenu", value: cb' value }
+  attr OnContextmenu value = unsafeAttribute { key: "contextmenu", value: cb' value }
 instance Attr anything OnDblclick Cb where
   attr OnDblclick value = unsafeAttribute { key: "dblclick", value: cb' value }
 instance Attr anything OnDrag Cb where
@@ -10544,21 +9378,17 @@ instance Attr anything OnDrag Cb where
 instance Attr anything OnDragend Cb where
   attr OnDragend value = unsafeAttribute { key: "dragend", value: cb' value }
 instance Attr anything OnDragenter Cb where
-  attr OnDragenter value = unsafeAttribute
-    { key: "dragenter", value: cb' value }
+  attr OnDragenter value = unsafeAttribute { key: "dragenter", value: cb' value }
 instance Attr anything OnDragleave Cb where
-  attr OnDragleave value = unsafeAttribute
-    { key: "dragleave", value: cb' value }
+  attr OnDragleave value = unsafeAttribute { key: "dragleave", value: cb' value }
 instance Attr anything OnDragover Cb where
   attr OnDragover value = unsafeAttribute { key: "dragover", value: cb' value }
 instance Attr anything OnDragstart Cb where
-  attr OnDragstart value = unsafeAttribute
-    { key: "dragstart", value: cb' value }
+  attr OnDragstart value = unsafeAttribute { key: "dragstart", value: cb' value }
 instance Attr anything OnDrop Cb where
   attr OnDrop value = unsafeAttribute { key: "drop", value: cb' value }
 instance Attr anything OnDurationchange Cb where
-  attr OnDurationchange value = unsafeAttribute
-    { key: "durationchange", value: cb' value }
+  attr OnDurationchange value = unsafeAttribute { key: "durationchange", value: cb' value }
 instance Attr anything OnEmptied Cb where
   attr OnEmptied value = unsafeAttribute { key: "emptied", value: cb' value }
 instance Attr anything OnEnded Cb where
@@ -10566,8 +9396,7 @@ instance Attr anything OnEnded Cb where
 instance Attr anything OnFormdata Cb where
   attr OnFormdata value = unsafeAttribute { key: "formdata", value: cb' value }
 instance Attr anything OnGotpointercapture Cb where
-  attr OnGotpointercapture value = unsafeAttribute
-    { key: "gotpointercapture", value: cb' value }
+  attr OnGotpointercapture value = unsafeAttribute { key: "gotpointercapture", value: cb' value }
 instance Attr anything OnInput Cb where
   attr OnInput value = unsafeAttribute { key: "input", value: cb' value }
 instance Attr anything OnInvalid Cb where
@@ -10581,41 +9410,31 @@ instance Attr anything OnKeyup Cb where
 instance Attr anything OnLoad Cb where
   attr OnLoad value = unsafeAttribute { key: "load", value: cb' value }
 instance Attr anything OnLoadeddata Cb where
-  attr OnLoadeddata value = unsafeAttribute
-    { key: "loadeddata", value: cb' value }
+  attr OnLoadeddata value = unsafeAttribute { key: "loadeddata", value: cb' value }
 instance Attr anything OnLoadedmetadata Cb where
-  attr OnLoadedmetadata value = unsafeAttribute
-    { key: "loadedmetadata", value: cb' value }
+  attr OnLoadedmetadata value = unsafeAttribute { key: "loadedmetadata", value: cb' value }
 instance Attr anything OnLoadend Cb where
   attr OnLoadend value = unsafeAttribute { key: "loadend", value: cb' value }
 instance Attr anything OnLoadstart Cb where
-  attr OnLoadstart value = unsafeAttribute
-    { key: "loadstart", value: cb' value }
+  attr OnLoadstart value = unsafeAttribute { key: "loadstart", value: cb' value }
 instance Attr anything OnLostpointercapture Cb where
-  attr OnLostpointercapture value = unsafeAttribute
-    { key: "lostpointercapture", value: cb' value }
+  attr OnLostpointercapture value = unsafeAttribute { key: "lostpointercapture", value: cb' value }
 instance Attr anything OnMousedown Cb where
-  attr OnMousedown value = unsafeAttribute
-    { key: "mousedown", value: cb' value }
+  attr OnMousedown value = unsafeAttribute { key: "mousedown", value: cb' value }
 instance Attr anything OnMouseenter Cb where
-  attr OnMouseenter value = unsafeAttribute
-    { key: "mouseenter", value: cb' value }
+  attr OnMouseenter value = unsafeAttribute { key: "mouseenter", value: cb' value }
 instance Attr anything OnMouseleave Cb where
-  attr OnMouseleave value = unsafeAttribute
-    { key: "mouseleave", value: cb' value }
+  attr OnMouseleave value = unsafeAttribute { key: "mouseleave", value: cb' value }
 instance Attr anything OnMousemove Cb where
-  attr OnMousemove value = unsafeAttribute
-    { key: "mousemove", value: cb' value }
+  attr OnMousemove value = unsafeAttribute { key: "mousemove", value: cb' value }
 instance Attr anything OnMouseout Cb where
   attr OnMouseout value = unsafeAttribute { key: "mouseout", value: cb' value }
 instance Attr anything OnMouseover Cb where
-  attr OnMouseover value = unsafeAttribute
-    { key: "mouseover", value: cb' value }
+  attr OnMouseover value = unsafeAttribute { key: "mouseover", value: cb' value }
 instance Attr anything OnMouseup Cb where
   attr OnMouseup value = unsafeAttribute { key: "mouseup", value: cb' value }
-instance Attr anything OnMousewheel Cb where
-  attr OnMousewheel value = unsafeAttribute
-    { key: "mousewheel  ", value: cb' value }
+instance Attr anything OnMousewheel   Cb where
+  attr OnMousewheel   value = unsafeAttribute { key: "mousewheel  ", value: cb' value }
 instance Attr anything OnWheel Cb where
   attr OnWheel value = unsafeAttribute { key: "wheel", value: cb' value }
 instance Attr anything OnPause Cb where
@@ -10625,40 +9444,29 @@ instance Attr anything OnPlay Cb where
 instance Attr anything OnPlaying Cb where
   attr OnPlaying value = unsafeAttribute { key: "playing", value: cb' value }
 instance Attr anything OnPointerdown Cb where
-  attr OnPointerdown value = unsafeAttribute
-    { key: "pointerdown", value: cb' value }
+  attr OnPointerdown value = unsafeAttribute { key: "pointerdown", value: cb' value }
 instance Attr anything OnPointermove Cb where
-  attr OnPointermove value = unsafeAttribute
-    { key: "pointermove", value: cb' value }
+  attr OnPointermove value = unsafeAttribute { key: "pointermove", value: cb' value }
 instance Attr anything OnPointerup Cb where
-  attr OnPointerup value = unsafeAttribute
-    { key: "pointerup", value: cb' value }
+  attr OnPointerup value = unsafeAttribute { key: "pointerup", value: cb' value }
 instance Attr anything OnPointercancel Cb where
-  attr OnPointercancel value = unsafeAttribute
-    { key: "pointercancel", value: cb' value }
+  attr OnPointercancel value = unsafeAttribute { key: "pointercancel", value: cb' value }
 instance Attr anything OnPointerover Cb where
-  attr OnPointerover value = unsafeAttribute
-    { key: "pointerover", value: cb' value }
+  attr OnPointerover value = unsafeAttribute { key: "pointerover", value: cb' value }
 instance Attr anything OnPointerout Cb where
-  attr OnPointerout value = unsafeAttribute
-    { key: "pointerout", value: cb' value }
+  attr OnPointerout value = unsafeAttribute { key: "pointerout", value: cb' value }
 instance Attr anything OnPointerenter Cb where
-  attr OnPointerenter value = unsafeAttribute
-    { key: "pointerenter", value: cb' value }
+  attr OnPointerenter value = unsafeAttribute { key: "pointerenter", value: cb' value }
 instance Attr anything OnPointerleave Cb where
-  attr OnPointerleave value = unsafeAttribute
-    { key: "pointerleave", value: cb' value }
-instance Attr anything OnPointerlockchange Cb where
-  attr OnPointerlockchange value = unsafeAttribute
-    { key: "pointerlockchange ", value: cb' value }
-instance Attr anything OnPointerlockerror Cb where
-  attr OnPointerlockerror value = unsafeAttribute
-    { key: "pointerlockerror ", value: cb' value }
+  attr OnPointerleave value = unsafeAttribute { key: "pointerleave", value: cb' value }
+instance Attr anything OnPointerlockchange  Cb where
+  attr OnPointerlockchange  value = unsafeAttribute { key: "pointerlockchange ", value: cb' value }
+instance Attr anything OnPointerlockerror  Cb where
+  attr OnPointerlockerror  value = unsafeAttribute { key: "pointerlockerror ", value: cb' value }
 instance Attr anything OnProgress Cb where
   attr OnProgress value = unsafeAttribute { key: "progress", value: cb' value }
 instance Attr anything OnRatechange Cb where
-  attr OnRatechange value = unsafeAttribute
-    { key: "ratechange", value: cb' value }
+  attr OnRatechange value = unsafeAttribute { key: "ratechange", value: cb' value }
 instance Attr anything OnReset Cb where
   attr OnReset value = unsafeAttribute { key: "reset", value: cb' value }
 instance Attr anything OnResize Cb where
@@ -10666,8 +9474,7 @@ instance Attr anything OnResize Cb where
 instance Attr anything OnScroll Cb where
   attr OnScroll value = unsafeAttribute { key: "scroll", value: cb' value }
 instance Attr anything OnSecuritypolicyviolation Cb where
-  attr OnSecuritypolicyviolation value = unsafeAttribute
-    { key: "securitypolicyviolation", value: cb' value }
+  attr OnSecuritypolicyviolation value = unsafeAttribute { key: "securitypolicyviolation", value: cb' value }
 instance Attr anything OnSeeked Cb where
   attr OnSeeked value = unsafeAttribute { key: "seeked", value: cb' value }
 instance Attr anything OnSeeking Cb where
@@ -10675,16 +9482,13 @@ instance Attr anything OnSeeking Cb where
 instance Attr anything OnSelect Cb where
   attr OnSelect value = unsafeAttribute { key: "select", value: cb' value }
 instance Attr anything OnSelectstart Cb where
-  attr OnSelectstart value = unsafeAttribute
-    { key: "selectstart", value: cb' value }
+  attr OnSelectstart value = unsafeAttribute { key: "selectstart", value: cb' value }
 instance Attr anything OnSelectionchange Cb where
-  attr OnSelectionchange value = unsafeAttribute
-    { key: "selectionchange", value: cb' value }
-instance Attr anything OnShow Cb where
-  attr OnShow value = unsafeAttribute { key: "show ", value: cb' value }
+  attr OnSelectionchange value = unsafeAttribute { key: "selectionchange", value: cb' value }
+instance Attr anything OnShow  Cb where
+  attr OnShow  value = unsafeAttribute { key: "show ", value: cb' value }
 instance Attr anything OnSlotchange Cb where
-  attr OnSlotchange value = unsafeAttribute
-    { key: "slotchange", value: cb' value }
+  attr OnSlotchange value = unsafeAttribute { key: "slotchange", value: cb' value }
 instance Attr anything OnStalled Cb where
   attr OnStalled value = unsafeAttribute { key: "stalled", value: cb' value }
 instance Attr anything OnSubmit Cb where
@@ -10692,35 +9496,25 @@ instance Attr anything OnSubmit Cb where
 instance Attr anything OnSuspend Cb where
   attr OnSuspend value = unsafeAttribute { key: "suspend", value: cb' value }
 instance Attr anything OnTimeupdate Cb where
-  attr OnTimeupdate value = unsafeAttribute
-    { key: "timeupdate", value: cb' value }
+  attr OnTimeupdate value = unsafeAttribute { key: "timeupdate", value: cb' value }
 instance Attr anything OnVolumechange Cb where
-  attr OnVolumechange value = unsafeAttribute
-    { key: "volumechange", value: cb' value }
-instance Attr anything OnTouchcancel Cb where
-  attr OnTouchcancel value = unsafeAttribute
-    { key: "touchcancel  ", value: cb' value }
-instance Attr anything OnTouchend Cb where
-  attr OnTouchend value = unsafeAttribute
-    { key: "touchend  ", value: cb' value }
-instance Attr anything OnTouchmove Cb where
-  attr OnTouchmove value = unsafeAttribute
-    { key: "touchmove  ", value: cb' value }
-instance Attr anything OnTouchstart Cb where
-  attr OnTouchstart value = unsafeAttribute
-    { key: "touchstart  ", value: cb' value }
+  attr OnVolumechange value = unsafeAttribute { key: "volumechange", value: cb' value }
+instance Attr anything OnTouchcancel   Cb where
+  attr OnTouchcancel   value = unsafeAttribute { key: "touchcancel  ", value: cb' value }
+instance Attr anything OnTouchend   Cb where
+  attr OnTouchend   value = unsafeAttribute { key: "touchend  ", value: cb' value }
+instance Attr anything OnTouchmove   Cb where
+  attr OnTouchmove   value = unsafeAttribute { key: "touchmove  ", value: cb' value }
+instance Attr anything OnTouchstart   Cb where
+  attr OnTouchstart   value = unsafeAttribute { key: "touchstart  ", value: cb' value }
 instance Attr anything OnTransitioncancel Cb where
-  attr OnTransitioncancel value = unsafeAttribute
-    { key: "transitioncancel", value: cb' value }
+  attr OnTransitioncancel value = unsafeAttribute { key: "transitioncancel", value: cb' value }
 instance Attr anything OnTransitionend Cb where
-  attr OnTransitionend value = unsafeAttribute
-    { key: "transitionend", value: cb' value }
+  attr OnTransitionend value = unsafeAttribute { key: "transitionend", value: cb' value }
 instance Attr anything OnTransitionrun Cb where
-  attr OnTransitionrun value = unsafeAttribute
-    { key: "transitionrun", value: cb' value }
+  attr OnTransitionrun value = unsafeAttribute { key: "transitionrun", value: cb' value }
 instance Attr anything OnTransitionstart Cb where
-  attr OnTransitionstart value = unsafeAttribute
-    { key: "transitionstart", value: cb' value }
+  attr OnTransitionstart value = unsafeAttribute { key: "transitionstart", value: cb' value }
 instance Attr anything OnWaiting Cb where
   attr OnWaiting value = unsafeAttribute { key: "waiting", value: cb' value }
 -- codegen 8
@@ -10728,1952 +9522,2196 @@ instance Attr anything OnWaiting Cb where
 data A_
 
 a
-  :: forall dom engine
-   . Event (Attribute A_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute A_)
+  -> Array (Element event payload)
+  -> Element event payload
 a = elementify "a"
 
 a_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 a_ = a empty
 instance tagToDekuA_ :: TagToDeku "a" A_
 
 data Abbr_
 
 abbr
-  :: forall dom engine
-   . Event (Attribute Abbr_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Abbr_)
+  -> Array (Element event payload)
+  -> Element event payload
 abbr = elementify "abbr"
 
 abbr_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 abbr_ = abbr empty
 instance tagToDekuAbbr_ :: TagToDeku "abbr" Abbr_
 
 data Acronym_
 
 acronym
-  :: forall dom engine
-   . Event (Attribute Acronym_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Acronym_)
+  -> Array (Element event payload)
+  -> Element event payload
 acronym = elementify "acronym"
 
 acronym_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 acronym_ = acronym empty
 instance tagToDekuAcronym_ :: TagToDeku "acronym" Acronym_
 
 data Address_
 
 address
-  :: forall dom engine
-   . Event (Attribute Address_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Address_)
+  -> Array (Element event payload)
+  -> Element event payload
 address = elementify "address"
 
 address_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 address_ = address empty
 instance tagToDekuAddress_ :: TagToDeku "address" Address_
 
 data Applet_
 
 applet
-  :: forall dom engine
-   . Event (Attribute Applet_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Applet_)
+  -> Array (Element event payload)
+  -> Element event payload
 applet = elementify "applet"
 
 applet_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 applet_ = applet empty
 instance tagToDekuApplet_ :: TagToDeku "applet" Applet_
 
 data Area_
 
 area
-  :: forall dom engine
-   . Event (Attribute Area_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Area_)
+  -> Array (Element event payload)
+  -> Element event payload
 area = elementify "area"
 
 area_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 area_ = area empty
 instance tagToDekuArea_ :: TagToDeku "area" Area_
 
 data Article_
 
 article
-  :: forall dom engine
-   . Event (Attribute Article_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Article_)
+  -> Array (Element event payload)
+  -> Element event payload
 article = elementify "article"
 
 article_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 article_ = article empty
 instance tagToDekuArticle_ :: TagToDeku "article" Article_
 
 data Aside_
 
 aside
-  :: forall dom engine
-   . Event (Attribute Aside_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Aside_)
+  -> Array (Element event payload)
+  -> Element event payload
 aside = elementify "aside"
 
 aside_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 aside_ = aside empty
 instance tagToDekuAside_ :: TagToDeku "aside" Aside_
 
 data Audio_
 
 audio
-  :: forall dom engine
-   . Event (Attribute Audio_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Audio_)
+  -> Array (Element event payload)
+  -> Element event payload
 audio = elementify "audio"
 
 audio_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 audio_ = audio empty
 instance tagToDekuAudio_ :: TagToDeku "audio" Audio_
 
 data B_
 
 b
-  :: forall dom engine
-   . Event (Attribute B_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute B_)
+  -> Array (Element event payload)
+  -> Element event payload
 b = elementify "b"
 
 b_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 b_ = b empty
 instance tagToDekuB_ :: TagToDeku "b" B_
 
 data Base_
 
 base
-  :: forall dom engine
-   . Event (Attribute Base_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Base_)
+  -> Array (Element event payload)
+  -> Element event payload
 base = elementify "base"
 
 base_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 base_ = base empty
 instance tagToDekuBase_ :: TagToDeku "base" Base_
 
 data Basefont_
 
 basefont
-  :: forall dom engine
-   . Event (Attribute Basefont_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Basefont_)
+  -> Array (Element event payload)
+  -> Element event payload
 basefont = elementify "basefont"
 
 basefont_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 basefont_ = basefont empty
 instance tagToDekuBasefont_ :: TagToDeku "basefont" Basefont_
 
 data Bdi_
 
 bdi
-  :: forall dom engine
-   . Event (Attribute Bdi_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Bdi_)
+  -> Array (Element event payload)
+  -> Element event payload
 bdi = elementify "bdi"
 
 bdi_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 bdi_ = bdi empty
 instance tagToDekuBdi_ :: TagToDeku "bdi" Bdi_
 
 data Bdo_
 
 bdo
-  :: forall dom engine
-   . Event (Attribute Bdo_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Bdo_)
+  -> Array (Element event payload)
+  -> Element event payload
 bdo = elementify "bdo"
 
 bdo_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 bdo_ = bdo empty
 instance tagToDekuBdo_ :: TagToDeku "bdo" Bdo_
 
 data Big_
 
 big
-  :: forall dom engine
-   . Event (Attribute Big_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Big_)
+  -> Array (Element event payload)
+  -> Element event payload
 big = elementify "big"
 
 big_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 big_ = big empty
 instance tagToDekuBig_ :: TagToDeku "big" Big_
 
 data Blockquote_
 
 blockquote
-  :: forall dom engine
-   . Event (Attribute Blockquote_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Blockquote_)
+  -> Array (Element event payload)
+  -> Element event payload
 blockquote = elementify "blockquote"
 
 blockquote_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 blockquote_ = blockquote empty
 instance tagToDekuBlockquote_ :: TagToDeku "blockquote" Blockquote_
 
 data Body_
 
 body
-  :: forall dom engine
-   . Event (Attribute Body_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Body_)
+  -> Array (Element event payload)
+  -> Element event payload
 body = elementify "body"
 
 body_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 body_ = body empty
 instance tagToDekuBody_ :: TagToDeku "body" Body_
 
 data Br_
 
 br
-  :: forall dom engine
-   . Event (Attribute Br_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Br_)
+  -> Array (Element event payload)
+  -> Element event payload
 br = elementify "br"
 
 br_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 br_ = br empty
 instance tagToDekuBr_ :: TagToDeku "br" Br_
 
 data Button_
 
 button
-  :: forall dom engine
-   . Event (Attribute Button_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Button_)
+  -> Array (Element event payload)
+  -> Element event payload
 button = elementify "button"
 
 button_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 button_ = button empty
 instance tagToDekuButton_ :: TagToDeku "button" Button_
 
 data Canvas_
 
 canvas
-  :: forall dom engine
-   . Event (Attribute Canvas_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Canvas_)
+  -> Array (Element event payload)
+  -> Element event payload
 canvas = elementify "canvas"
 
 canvas_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 canvas_ = canvas empty
 instance tagToDekuCanvas_ :: TagToDeku "canvas" Canvas_
 
 data Caption_
 
 caption
-  :: forall dom engine
-   . Event (Attribute Caption_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Caption_)
+  -> Array (Element event payload)
+  -> Element event payload
 caption = elementify "caption"
 
 caption_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 caption_ = caption empty
 instance tagToDekuCaption_ :: TagToDeku "caption" Caption_
 
 data Center_
 
 center
-  :: forall dom engine
-   . Event (Attribute Center_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Center_)
+  -> Array (Element event payload)
+  -> Element event payload
 center = elementify "center"
 
 center_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 center_ = center empty
 instance tagToDekuCenter_ :: TagToDeku "center" Center_
 
 data Cite_
 
 cite
-  :: forall dom engine
-   . Event (Attribute Cite_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Cite_)
+  -> Array (Element event payload)
+  -> Element event payload
 cite = elementify "cite"
 
 cite_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 cite_ = cite empty
 instance tagToDekuCite_ :: TagToDeku "cite" Cite_
 
 data Code_
 
 code
-  :: forall dom engine
-   . Event (Attribute Code_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Code_)
+  -> Array (Element event payload)
+  -> Element event payload
 code = elementify "code"
 
 code_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 code_ = code empty
 instance tagToDekuCode_ :: TagToDeku "code" Code_
 
 data Col_
 
 col
-  :: forall dom engine
-   . Event (Attribute Col_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Col_)
+  -> Array (Element event payload)
+  -> Element event payload
 col = elementify "col"
 
 col_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 col_ = col empty
 instance tagToDekuCol_ :: TagToDeku "col" Col_
 
 data Colgroup_
 
 colgroup
-  :: forall dom engine
-   . Event (Attribute Colgroup_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Colgroup_)
+  -> Array (Element event payload)
+  -> Element event payload
 colgroup = elementify "colgroup"
 
 colgroup_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 colgroup_ = colgroup empty
 instance tagToDekuColgroup_ :: TagToDeku "colgroup" Colgroup_
 
 data Xdata_
 
 xdata
-  :: forall dom engine
-   . Event (Attribute Xdata_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Xdata_)
+  -> Array (Element event payload)
+  -> Element event payload
 xdata = elementify "data"
 
 xdata_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 xdata_ = xdata empty
 instance tagToDekuXdata_ :: TagToDeku "data" Xdata_
 
 data Datalist_
 
 datalist
-  :: forall dom engine
-   . Event (Attribute Datalist_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Datalist_)
+  -> Array (Element event payload)
+  -> Element event payload
 datalist = elementify "datalist"
 
 datalist_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 datalist_ = datalist empty
 instance tagToDekuDatalist_ :: TagToDeku "datalist" Datalist_
 
 data Dd_
 
 dd
-  :: forall dom engine
-   . Event (Attribute Dd_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Dd_)
+  -> Array (Element event payload)
+  -> Element event payload
 dd = elementify "dd"
 
 dd_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 dd_ = dd empty
 instance tagToDekuDd_ :: TagToDeku "dd" Dd_
 
 data Del_
 
 del
-  :: forall dom engine
-   . Event (Attribute Del_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Del_)
+  -> Array (Element event payload)
+  -> Element event payload
 del = elementify "del"
 
 del_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 del_ = del empty
 instance tagToDekuDel_ :: TagToDeku "del" Del_
 
 data Details_
 
 details
-  :: forall dom engine
-   . Event (Attribute Details_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Details_)
+  -> Array (Element event payload)
+  -> Element event payload
 details = elementify "details"
 
 details_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 details_ = details empty
 instance tagToDekuDetails_ :: TagToDeku "details" Details_
 
 data Dfn_
 
 dfn
-  :: forall dom engine
-   . Event (Attribute Dfn_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Dfn_)
+  -> Array (Element event payload)
+  -> Element event payload
 dfn = elementify "dfn"
 
 dfn_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 dfn_ = dfn empty
 instance tagToDekuDfn_ :: TagToDeku "dfn" Dfn_
 
 data Dialog_
 
 dialog
-  :: forall dom engine
-   . Event (Attribute Dialog_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Dialog_)
+  -> Array (Element event payload)
+  -> Element event payload
 dialog = elementify "dialog"
 
 dialog_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 dialog_ = dialog empty
 instance tagToDekuDialog_ :: TagToDeku "dialog" Dialog_
 
 data Dir_
 
 dir
-  :: forall dom engine
-   . Event (Attribute Dir_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Dir_)
+  -> Array (Element event payload)
+  -> Element event payload
 dir = elementify "dir"
 
 dir_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 dir_ = dir empty
 instance tagToDekuDir_ :: TagToDeku "dir" Dir_
 
 data Div_
 
 div
-  :: forall dom engine
-   . Event (Attribute Div_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Div_)
+  -> Array (Element event payload)
+  -> Element event payload
 div = elementify "div"
 
 div_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 div_ = div empty
 instance tagToDekuDiv_ :: TagToDeku "div" Div_
 
 data Dl_
 
 dl
-  :: forall dom engine
-   . Event (Attribute Dl_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Dl_)
+  -> Array (Element event payload)
+  -> Element event payload
 dl = elementify "dl"
 
 dl_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 dl_ = dl empty
 instance tagToDekuDl_ :: TagToDeku "dl" Dl_
 
 data Dt_
 
 dt
-  :: forall dom engine
-   . Event (Attribute Dt_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Dt_)
+  -> Array (Element event payload)
+  -> Element event payload
 dt = elementify "dt"
 
 dt_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 dt_ = dt empty
 instance tagToDekuDt_ :: TagToDeku "dt" Dt_
 
 data Em_
 
 em
-  :: forall dom engine
-   . Event (Attribute Em_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Em_)
+  -> Array (Element event payload)
+  -> Element event payload
 em = elementify "em"
 
 em_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 em_ = em empty
 instance tagToDekuEm_ :: TagToDeku "em" Em_
 
 data Embed_
 
 embed
-  :: forall dom engine
-   . Event (Attribute Embed_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Embed_)
+  -> Array (Element event payload)
+  -> Element event payload
 embed = elementify "embed"
 
 embed_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 embed_ = embed empty
 instance tagToDekuEmbed_ :: TagToDeku "embed" Embed_
 
 data Fieldset_
 
 fieldset
-  :: forall dom engine
-   . Event (Attribute Fieldset_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Fieldset_)
+  -> Array (Element event payload)
+  -> Element event payload
 fieldset = elementify "fieldset"
 
 fieldset_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 fieldset_ = fieldset empty
 instance tagToDekuFieldset_ :: TagToDeku "fieldset" Fieldset_
 
 data Figcaption_
 
 figcaption
-  :: forall dom engine
-   . Event (Attribute Figcaption_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Figcaption_)
+  -> Array (Element event payload)
+  -> Element event payload
 figcaption = elementify "figcaption"
 
 figcaption_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 figcaption_ = figcaption empty
 instance tagToDekuFigcaption_ :: TagToDeku "figcaption" Figcaption_
 
 data Figure_
 
 figure
-  :: forall dom engine
-   . Event (Attribute Figure_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Figure_)
+  -> Array (Element event payload)
+  -> Element event payload
 figure = elementify "figure"
 
 figure_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 figure_ = figure empty
 instance tagToDekuFigure_ :: TagToDeku "figure" Figure_
 
 data Font_
 
 font
-  :: forall dom engine
-   . Event (Attribute Font_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Font_)
+  -> Array (Element event payload)
+  -> Element event payload
 font = elementify "font"
 
 font_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 font_ = font empty
 instance tagToDekuFont_ :: TagToDeku "font" Font_
 
 data Footer_
 
 footer
-  :: forall dom engine
-   . Event (Attribute Footer_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Footer_)
+  -> Array (Element event payload)
+  -> Element event payload
 footer = elementify "footer"
 
 footer_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 footer_ = footer empty
 instance tagToDekuFooter_ :: TagToDeku "footer" Footer_
 
 data Form_
 
 form
-  :: forall dom engine
-   . Event (Attribute Form_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Form_)
+  -> Array (Element event payload)
+  -> Element event payload
 form = elementify "form"
 
 form_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 form_ = form empty
 instance tagToDekuForm_ :: TagToDeku "form" Form_
 
 data Frame_
 
 frame
-  :: forall dom engine
-   . Event (Attribute Frame_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Frame_)
+  -> Array (Element event payload)
+  -> Element event payload
 frame = elementify "frame"
 
 frame_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 frame_ = frame empty
 instance tagToDekuFrame_ :: TagToDeku "frame" Frame_
 
 data Frameset_
 
 frameset
-  :: forall dom engine
-   . Event (Attribute Frameset_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Frameset_)
+  -> Array (Element event payload)
+  -> Element event payload
 frameset = elementify "frameset"
 
 frameset_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 frameset_ = frameset empty
 instance tagToDekuFrameset_ :: TagToDeku "frameset" Frameset_
 
 data H1_
 
 h1
-  :: forall dom engine
-   . Event (Attribute H1_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute H1_)
+  -> Array (Element event payload)
+  -> Element event payload
 h1 = elementify "h1"
 
 h1_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 h1_ = h1 empty
 instance tagToDekuH1_ :: TagToDeku "h1" H1_
 
 data H2_
 
 h2
-  :: forall dom engine
-   . Event (Attribute H2_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute H2_)
+  -> Array (Element event payload)
+  -> Element event payload
 h2 = elementify "h2"
 
 h2_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 h2_ = h2 empty
 instance tagToDekuH2_ :: TagToDeku "h2" H2_
 
 data H3_
 
 h3
-  :: forall dom engine
-   . Event (Attribute H3_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute H3_)
+  -> Array (Element event payload)
+  -> Element event payload
 h3 = elementify "h3"
 
 h3_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 h3_ = h3 empty
 instance tagToDekuH3_ :: TagToDeku "h3" H3_
 
 data H4_
 
 h4
-  :: forall dom engine
-   . Event (Attribute H4_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute H4_)
+  -> Array (Element event payload)
+  -> Element event payload
 h4 = elementify "h4"
 
 h4_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 h4_ = h4 empty
 instance tagToDekuH4_ :: TagToDeku "h4" H4_
 
 data H5_
 
 h5
-  :: forall dom engine
-   . Event (Attribute H5_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute H5_)
+  -> Array (Element event payload)
+  -> Element event payload
 h5 = elementify "h5"
 
 h5_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 h5_ = h5 empty
 instance tagToDekuH5_ :: TagToDeku "h5" H5_
 
 data H6_
 
 h6
-  :: forall dom engine
-   . Event (Attribute H6_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute H6_)
+  -> Array (Element event payload)
+  -> Element event payload
 h6 = elementify "h6"
 
 h6_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 h6_ = h6 empty
 instance tagToDekuH6_ :: TagToDeku "h6" H6_
 
 data Head_
 
 head
-  :: forall dom engine
-   . Event (Attribute Head_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Head_)
+  -> Array (Element event payload)
+  -> Element event payload
 head = elementify "head"
 
 head_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 head_ = head empty
 instance tagToDekuHead_ :: TagToDeku "head" Head_
 
 data Header_
 
 header
-  :: forall dom engine
-   . Event (Attribute Header_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Header_)
+  -> Array (Element event payload)
+  -> Element event payload
 header = elementify "header"
 
 header_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 header_ = header empty
 instance tagToDekuHeader_ :: TagToDeku "header" Header_
 
 data Hr_
 
 hr
-  :: forall dom engine
-   . Event (Attribute Hr_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Hr_)
+  -> Array (Element event payload)
+  -> Element event payload
 hr = elementify "hr"
 
 hr_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 hr_ = hr empty
 instance tagToDekuHr_ :: TagToDeku "hr" Hr_
 
 data Html_
 
 html
-  :: forall dom engine
-   . Event (Attribute Html_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Html_)
+  -> Array (Element event payload)
+  -> Element event payload
 html = elementify "html"
 
 html_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 html_ = html empty
 instance tagToDekuHtml_ :: TagToDeku "html" Html_
 
 data I_
 
 i
-  :: forall dom engine
-   . Event (Attribute I_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute I_)
+  -> Array (Element event payload)
+  -> Element event payload
 i = elementify "i"
 
 i_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 i_ = i empty
 instance tagToDekuI_ :: TagToDeku "i" I_
 
 data Iframe_
 
 iframe
-  :: forall dom engine
-   . Event (Attribute Iframe_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Iframe_)
+  -> Array (Element event payload)
+  -> Element event payload
 iframe = elementify "iframe"
 
 iframe_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 iframe_ = iframe empty
 instance tagToDekuIframe_ :: TagToDeku "iframe" Iframe_
 
 data Img_
 
 img
-  :: forall dom engine
-   . Event (Attribute Img_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Img_)
+  -> Array (Element event payload)
+  -> Element event payload
 img = elementify "img"
 
 img_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 img_ = img empty
 instance tagToDekuImg_ :: TagToDeku "img" Img_
 
 data Input_
 
 input
-  :: forall dom engine
-   . Event (Attribute Input_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Input_)
+  -> Array (Element event payload)
+  -> Element event payload
 input = elementify "input"
 
 input_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 input_ = input empty
 instance tagToDekuInput_ :: TagToDeku "input" Input_
 
 data Ins_
 
 ins
-  :: forall dom engine
-   . Event (Attribute Ins_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Ins_)
+  -> Array (Element event payload)
+  -> Element event payload
 ins = elementify "ins"
 
 ins_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 ins_ = ins empty
 instance tagToDekuIns_ :: TagToDeku "ins" Ins_
 
 data Kbd_
 
 kbd
-  :: forall dom engine
-   . Event (Attribute Kbd_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Kbd_)
+  -> Array (Element event payload)
+  -> Element event payload
 kbd = elementify "kbd"
 
 kbd_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 kbd_ = kbd empty
 instance tagToDekuKbd_ :: TagToDeku "kbd" Kbd_
 
 data Label_
 
 label
-  :: forall dom engine
-   . Event (Attribute Label_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Label_)
+  -> Array (Element event payload)
+  -> Element event payload
 label = elementify "label"
 
 label_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 label_ = label empty
 instance tagToDekuLabel_ :: TagToDeku "label" Label_
 
 data Legend_
 
 legend
-  :: forall dom engine
-   . Event (Attribute Legend_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Legend_)
+  -> Array (Element event payload)
+  -> Element event payload
 legend = elementify "legend"
 
 legend_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 legend_ = legend empty
 instance tagToDekuLegend_ :: TagToDeku "legend" Legend_
 
 data Li_
 
 li
-  :: forall dom engine
-   . Event (Attribute Li_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Li_)
+  -> Array (Element event payload)
+  -> Element event payload
 li = elementify "li"
 
 li_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 li_ = li empty
 instance tagToDekuLi_ :: TagToDeku "li" Li_
 
 data Link_
 
 link
-  :: forall dom engine
-   . Event (Attribute Link_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Link_)
+  -> Array (Element event payload)
+  -> Element event payload
 link = elementify "link"
 
 link_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 link_ = link empty
 instance tagToDekuLink_ :: TagToDeku "link" Link_
 
 data Main_
 
 main
-  :: forall dom engine
-   . Event (Attribute Main_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Main_)
+  -> Array (Element event payload)
+  -> Element event payload
 main = elementify "main"
 
 main_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 main_ = main empty
 instance tagToDekuMain_ :: TagToDeku "main" Main_
 
 data Map_
 
 map
-  :: forall dom engine
-   . Event (Attribute Map_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Map_)
+  -> Array (Element event payload)
+  -> Element event payload
 map = elementify "map"
 
 map_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 map_ = map empty
 instance tagToDekuMap_ :: TagToDeku "map" Map_
 
 data Mark_
 
 mark
-  :: forall dom engine
-   . Event (Attribute Mark_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Mark_)
+  -> Array (Element event payload)
+  -> Element event payload
 mark = elementify "mark"
 
 mark_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 mark_ = mark empty
 instance tagToDekuMark_ :: TagToDeku "mark" Mark_
 
 data Meta_
 
 meta
-  :: forall dom engine
-   . Event (Attribute Meta_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Meta_)
+  -> Array (Element event payload)
+  -> Element event payload
 meta = elementify "meta"
 
 meta_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 meta_ = meta empty
 instance tagToDekuMeta_ :: TagToDeku "meta" Meta_
 
 data Meter_
 
 meter
-  :: forall dom engine
-   . Event (Attribute Meter_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Meter_)
+  -> Array (Element event payload)
+  -> Element event payload
 meter = elementify "meter"
 
 meter_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 meter_ = meter empty
 instance tagToDekuMeter_ :: TagToDeku "meter" Meter_
 
 data Nav_
 
 nav
-  :: forall dom engine
-   . Event (Attribute Nav_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Nav_)
+  -> Array (Element event payload)
+  -> Element event payload
 nav = elementify "nav"
 
 nav_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 nav_ = nav empty
 instance tagToDekuNav_ :: TagToDeku "nav" Nav_
 
 data Noframes_
 
 noframes
-  :: forall dom engine
-   . Event (Attribute Noframes_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Noframes_)
+  -> Array (Element event payload)
+  -> Element event payload
 noframes = elementify "noframes"
 
 noframes_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 noframes_ = noframes empty
 instance tagToDekuNoframes_ :: TagToDeku "noframes" Noframes_
 
 data Noscript_
 
 noscript
-  :: forall dom engine
-   . Event (Attribute Noscript_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Noscript_)
+  -> Array (Element event payload)
+  -> Element event payload
 noscript = elementify "noscript"
 
 noscript_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 noscript_ = noscript empty
 instance tagToDekuNoscript_ :: TagToDeku "noscript" Noscript_
 
 data Object_
 
 object
-  :: forall dom engine
-   . Event (Attribute Object_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Object_)
+  -> Array (Element event payload)
+  -> Element event payload
 object = elementify "object"
 
 object_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 object_ = object empty
 instance tagToDekuObject_ :: TagToDeku "object" Object_
 
 data Ol_
 
 ol
-  :: forall dom engine
-   . Event (Attribute Ol_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Ol_)
+  -> Array (Element event payload)
+  -> Element event payload
 ol = elementify "ol"
 
 ol_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 ol_ = ol empty
 instance tagToDekuOl_ :: TagToDeku "ol" Ol_
 
 data Optgroup_
 
 optgroup
-  :: forall dom engine
-   . Event (Attribute Optgroup_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Optgroup_)
+  -> Array (Element event payload)
+  -> Element event payload
 optgroup = elementify "optgroup"
 
 optgroup_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 optgroup_ = optgroup empty
 instance tagToDekuOptgroup_ :: TagToDeku "optgroup" Optgroup_
 
 data Option_
 
 option
-  :: forall dom engine
-   . Event (Attribute Option_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Option_)
+  -> Array (Element event payload)
+  -> Element event payload
 option = elementify "option"
 
 option_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 option_ = option empty
 instance tagToDekuOption_ :: TagToDeku "option" Option_
 
 data Output_
 
 output
-  :: forall dom engine
-   . Event (Attribute Output_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Output_)
+  -> Array (Element event payload)
+  -> Element event payload
 output = elementify "output"
 
 output_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 output_ = output empty
 instance tagToDekuOutput_ :: TagToDeku "output" Output_
 
 data P_
 
 p
-  :: forall dom engine
-   . Event (Attribute P_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute P_)
+  -> Array (Element event payload)
+  -> Element event payload
 p = elementify "p"
 
 p_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 p_ = p empty
 instance tagToDekuP_ :: TagToDeku "p" P_
 
 data Param_
 
 param
-  :: forall dom engine
-   . Event (Attribute Param_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Param_)
+  -> Array (Element event payload)
+  -> Element event payload
 param = elementify "param"
 
 param_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 param_ = param empty
 instance tagToDekuParam_ :: TagToDeku "param" Param_
 
 data Picture_
 
 picture
-  :: forall dom engine
-   . Event (Attribute Picture_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Picture_)
+  -> Array (Element event payload)
+  -> Element event payload
 picture = elementify "picture"
 
 picture_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 picture_ = picture empty
 instance tagToDekuPicture_ :: TagToDeku "picture" Picture_
 
 data Pre_
 
 pre
-  :: forall dom engine
-   . Event (Attribute Pre_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Pre_)
+  -> Array (Element event payload)
+  -> Element event payload
 pre = elementify "pre"
 
 pre_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 pre_ = pre empty
 instance tagToDekuPre_ :: TagToDeku "pre" Pre_
 
 data Progress_
 
 progress
-  :: forall dom engine
-   . Event (Attribute Progress_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Progress_)
+  -> Array (Element event payload)
+  -> Element event payload
 progress = elementify "progress"
 
 progress_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 progress_ = progress empty
 instance tagToDekuProgress_ :: TagToDeku "progress" Progress_
 
 data Q_
 
 q
-  :: forall dom engine
-   . Event (Attribute Q_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Q_)
+  -> Array (Element event payload)
+  -> Element event payload
 q = elementify "q"
 
 q_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 q_ = q empty
 instance tagToDekuQ_ :: TagToDeku "q" Q_
 
 data Rp_
 
 rp
-  :: forall dom engine
-   . Event (Attribute Rp_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Rp_)
+  -> Array (Element event payload)
+  -> Element event payload
 rp = elementify "rp"
 
 rp_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 rp_ = rp empty
 instance tagToDekuRp_ :: TagToDeku "rp" Rp_
 
 data Rt_
 
 rt
-  :: forall dom engine
-   . Event (Attribute Rt_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Rt_)
+  -> Array (Element event payload)
+  -> Element event payload
 rt = elementify "rt"
 
 rt_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 rt_ = rt empty
 instance tagToDekuRt_ :: TagToDeku "rt" Rt_
 
 data Ruby_
 
 ruby
-  :: forall dom engine
-   . Event (Attribute Ruby_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Ruby_)
+  -> Array (Element event payload)
+  -> Element event payload
 ruby = elementify "ruby"
 
 ruby_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 ruby_ = ruby empty
 instance tagToDekuRuby_ :: TagToDeku "ruby" Ruby_
 
 data S_
 
 s
-  :: forall dom engine
-   . Event (Attribute S_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute S_)
+  -> Array (Element event payload)
+  -> Element event payload
 s = elementify "s"
 
 s_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 s_ = s empty
 instance tagToDekuS_ :: TagToDeku "s" S_
 
 data Samp_
 
 samp
-  :: forall dom engine
-   . Event (Attribute Samp_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Samp_)
+  -> Array (Element event payload)
+  -> Element event payload
 samp = elementify "samp"
 
 samp_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 samp_ = samp empty
 instance tagToDekuSamp_ :: TagToDeku "samp" Samp_
 
 data Script_
 
 script
-  :: forall dom engine
-   . Event (Attribute Script_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Script_)
+  -> Array (Element event payload)
+  -> Element event payload
 script = elementify "script"
 
 script_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 script_ = script empty
 instance tagToDekuScript_ :: TagToDeku "script" Script_
 
 data Section_
 
 section
-  :: forall dom engine
-   . Event (Attribute Section_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Section_)
+  -> Array (Element event payload)
+  -> Element event payload
 section = elementify "section"
 
 section_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 section_ = section empty
 instance tagToDekuSection_ :: TagToDeku "section" Section_
 
 data Select_
 
 select
-  :: forall dom engine
-   . Event (Attribute Select_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Select_)
+  -> Array (Element event payload)
+  -> Element event payload
 select = elementify "select"
 
 select_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 select_ = select empty
 instance tagToDekuSelect_ :: TagToDeku "select" Select_
 
 data Small_
 
 small
-  :: forall dom engine
-   . Event (Attribute Small_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Small_)
+  -> Array (Element event payload)
+  -> Element event payload
 small = elementify "small"
 
 small_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 small_ = small empty
 instance tagToDekuSmall_ :: TagToDeku "small" Small_
 
 data Source_
 
 source
-  :: forall dom engine
-   . Event (Attribute Source_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Source_)
+  -> Array (Element event payload)
+  -> Element event payload
 source = elementify "source"
 
 source_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 source_ = source empty
 instance tagToDekuSource_ :: TagToDeku "source" Source_
 
 data Span_
 
 span
-  :: forall dom engine
-   . Event (Attribute Span_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Span_)
+  -> Array (Element event payload)
+  -> Element event payload
 span = elementify "span"
 
 span_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 span_ = span empty
 instance tagToDekuSpan_ :: TagToDeku "span" Span_
 
 data Strike_
 
 strike
-  :: forall dom engine
-   . Event (Attribute Strike_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Strike_)
+  -> Array (Element event payload)
+  -> Element event payload
 strike = elementify "strike"
 
 strike_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 strike_ = strike empty
 instance tagToDekuStrike_ :: TagToDeku "strike" Strike_
 
 data Strong_
 
 strong
-  :: forall dom engine
-   . Event (Attribute Strong_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Strong_)
+  -> Array (Element event payload)
+  -> Element event payload
 strong = elementify "strong"
 
 strong_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 strong_ = strong empty
 instance tagToDekuStrong_ :: TagToDeku "strong" Strong_
 
 data Style_
 
 style
-  :: forall dom engine
-   . Event (Attribute Style_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Style_)
+  -> Array (Element event payload)
+  -> Element event payload
 style = elementify "style"
 
 style_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 style_ = style empty
 instance tagToDekuStyle_ :: TagToDeku "style" Style_
 
 data Sub_
 
 sub
-  :: forall dom engine
-   . Event (Attribute Sub_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Sub_)
+  -> Array (Element event payload)
+  -> Element event payload
 sub = elementify "sub"
 
 sub_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 sub_ = sub empty
 instance tagToDekuSub_ :: TagToDeku "sub" Sub_
 
 data Summary_
 
 summary
-  :: forall dom engine
-   . Event (Attribute Summary_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Summary_)
+  -> Array (Element event payload)
+  -> Element event payload
 summary = elementify "summary"
 
 summary_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 summary_ = summary empty
 instance tagToDekuSummary_ :: TagToDeku "summary" Summary_
 
 data Sup_
 
 sup
-  :: forall dom engine
-   . Event (Attribute Sup_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Sup_)
+  -> Array (Element event payload)
+  -> Element event payload
 sup = elementify "sup"
 
 sup_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 sup_ = sup empty
 instance tagToDekuSup_ :: TagToDeku "sup" Sup_
 
 data Svg_
 
 svg
-  :: forall dom engine
-   . Event (Attribute Svg_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Svg_)
+  -> Array (Element event payload)
+  -> Element event payload
 svg = elementify "svg"
 
 svg_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 svg_ = svg empty
 instance tagToDekuSvg_ :: TagToDeku "svg" Svg_
 
 data Table_
 
 table
-  :: forall dom engine
-   . Event (Attribute Table_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Table_)
+  -> Array (Element event payload)
+  -> Element event payload
 table = elementify "table"
 
 table_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 table_ = table empty
 instance tagToDekuTable_ :: TagToDeku "table" Table_
 
 data Tbody_
 
 tbody
-  :: forall dom engine
-   . Event (Attribute Tbody_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Tbody_)
+  -> Array (Element event payload)
+  -> Element event payload
 tbody = elementify "tbody"
 
 tbody_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 tbody_ = tbody empty
 instance tagToDekuTbody_ :: TagToDeku "tbody" Tbody_
 
 data Td_
 
 td
-  :: forall dom engine
-   . Event (Attribute Td_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Td_)
+  -> Array (Element event payload)
+  -> Element event payload
 td = elementify "td"
 
 td_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 td_ = td empty
 instance tagToDekuTd_ :: TagToDeku "td" Td_
 
 data Template_
 
 template
-  :: forall dom engine
-   . Event (Attribute Template_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Template_)
+  -> Array (Element event payload)
+  -> Element event payload
 template = elementify "template"
 
 template_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 template_ = template empty
 instance tagToDekuTemplate_ :: TagToDeku "template" Template_
 
 data Textarea_
 
 textarea
-  :: forall dom engine
-   . Event (Attribute Textarea_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Textarea_)
+  -> Array (Element event payload)
+  -> Element event payload
 textarea = elementify "textarea"
 
 textarea_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 textarea_ = textarea empty
 instance tagToDekuTextarea_ :: TagToDeku "textarea" Textarea_
 
 data Tfoot_
 
 tfoot
-  :: forall dom engine
-   . Event (Attribute Tfoot_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Tfoot_)
+  -> Array (Element event payload)
+  -> Element event payload
 tfoot = elementify "tfoot"
 
 tfoot_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 tfoot_ = tfoot empty
 instance tagToDekuTfoot_ :: TagToDeku "tfoot" Tfoot_
 
 data Th_
 
 th
-  :: forall dom engine
-   . Event (Attribute Th_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Th_)
+  -> Array (Element event payload)
+  -> Element event payload
 th = elementify "th"
 
 th_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 th_ = th empty
 instance tagToDekuTh_ :: TagToDeku "th" Th_
 
 data Thead_
 
 thead
-  :: forall dom engine
-   . Event (Attribute Thead_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Thead_)
+  -> Array (Element event payload)
+  -> Element event payload
 thead = elementify "thead"
 
 thead_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 thead_ = thead empty
 instance tagToDekuThead_ :: TagToDeku "thead" Thead_
 
 data Time_
 
 time
-  :: forall dom engine
-   . Event (Attribute Time_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Time_)
+  -> Array (Element event payload)
+  -> Element event payload
 time = elementify "time"
 
 time_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 time_ = time empty
 instance tagToDekuTime_ :: TagToDeku "time" Time_
 
 data Title_
 
 title
-  :: forall dom engine
-   . Event (Attribute Title_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Title_)
+  -> Array (Element event payload)
+  -> Element event payload
 title = elementify "title"
 
 title_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 title_ = title empty
 instance tagToDekuTitle_ :: TagToDeku "title" Title_
 
 data Tr_
 
 tr
-  :: forall dom engine
-   . Event (Attribute Tr_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Tr_)
+  -> Array (Element event payload)
+  -> Element event payload
 tr = elementify "tr"
 
 tr_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 tr_ = tr empty
 instance tagToDekuTr_ :: TagToDeku "tr" Tr_
 
 data Track_
 
 track
-  :: forall dom engine
-   . Event (Attribute Track_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Track_)
+  -> Array (Element event payload)
+  -> Element event payload
 track = elementify "track"
 
 track_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 track_ = track empty
 instance tagToDekuTrack_ :: TagToDeku "track" Track_
 
 data Tt_
 
 tt
-  :: forall dom engine
-   . Event (Attribute Tt_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Tt_)
+  -> Array (Element event payload)
+  -> Element event payload
 tt = elementify "tt"
 
 tt_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 tt_ = tt empty
 instance tagToDekuTt_ :: TagToDeku "tt" Tt_
 
 data U_
 
 u
-  :: forall dom engine
-   . Event (Attribute U_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute U_)
+  -> Array (Element event payload)
+  -> Element event payload
 u = elementify "u"
 
 u_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 u_ = u empty
 instance tagToDekuU_ :: TagToDeku "u" U_
 
 data Ul_
 
 ul
-  :: forall dom engine
-   . Event (Attribute Ul_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Ul_)
+  -> Array (Element event payload)
+  -> Element event payload
 ul = elementify "ul"
 
 ul_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 ul_ = ul empty
 instance tagToDekuUl_ :: TagToDeku "ul" Ul_
 
 data Var_
 
 var
-  :: forall dom engine
-   . Event (Attribute Var_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Var_)
+  -> Array (Element event payload)
+  -> Element event payload
 var = elementify "var"
 
 var_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 var_ = var empty
 instance tagToDekuVar_ :: TagToDeku "var" Var_
 
 data Video_
 
 video
-  :: forall dom engine
-   . Event (Attribute Video_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Video_)
+  -> Array (Element event payload)
+  -> Element event payload
 video = elementify "video"
 
 video_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 video_ = video empty
 instance tagToDekuVideo_ :: TagToDeku "video" Video_
 
 data Wbr_
 
 wbr
-  :: forall dom engine
-   . Event (Attribute Wbr_)
-  -> Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => event (Attribute Wbr_)
+  -> Array (Element event payload)
+  -> Element event payload
 wbr = elementify "wbr"
 
 wbr_
-  :: forall dom engine
-   . Array (Element_ dom engine)
-  -> Element_ dom engine
+  :: forall event payload
+   . IsEvent event
+  => Array (Element event payload)
+  -> Element event payload
 wbr_ = wbr empty
 instance tagToDekuWbr_ :: TagToDeku "wbr" Wbr_
 
diff --git a/src/Deku/Interpret.js b/src/Deku/Interpret.js
index 3a807f07..a67aa41f 100644
--- a/src/Deku/Interpret.js
+++ b/src/Deku/Interpret.js
@@ -35,7 +35,7 @@ exports.renderDOM = function (arrayToApply) {
 		}
 	};
 };
-var makeElement_ = function (a) {
+var makeElement = function (a) {
 	return function (state) {
 		return function () {
 			var ptr = a.id;
@@ -51,7 +51,7 @@ var makeElement_ = function (a) {
 		};
 	};
 };
-exports.makeElement_ = makeElement_;
+exports.makeElement = makeElement;
 exports.makeText_ = function (a) {
 	return function (state) {
 		return function () {
@@ -108,7 +108,7 @@ exports.setText_ = function (a) {
 	};
 };
 
-exports.makeSubgraph_ = function (ptr) {
+exports.makeSubgraph = function (ptr) {
 	return function (parent) {
 		return function (sceneM) {
 			return function (state) {
@@ -129,7 +129,7 @@ exports.makeSubgraph_ = function (ptr) {
 	};
 };
 
-exports.removeSubgraph_ = function (a) {
+exports.removeSubgraph = function (a) {
 	return function (state) {
 		return function () {
 			var ptr = a.id;
@@ -153,7 +153,7 @@ exports.removeSubgraph_ = function (a) {
 	};
 };
 
-var insertOrUpdateSubgraph_ = function (a) {
+var insertOrUpdateSubgraph = function (a) {
 	return function (state) {
 		return function () {
 			var ptr = a.id;
@@ -252,7 +252,7 @@ var makePursx_ = function (a) {
 	};
 };
 exports.makePursx_ = makePursx_;
-exports.insertOrUpdateSubgraph_ = insertOrUpdateSubgraph_;
+exports.insertOrUpdateSubgraph = insertOrUpdateSubgraph;
 exports.sendSubgraphToTop_ = function (a) {
 	return function (state) {
 		return function () {
diff --git a/src/Deku/Interpret.purs b/src/Deku/Interpret.purs
index 7939322d..4ca3ba4a 100644
--- a/src/Deku/Interpret.purs
+++ b/src/Deku/Interpret.purs
@@ -9,10 +9,12 @@ import Prelude
 
 import Control.Alt ((<|>))
 import Data.Either (Either(..))
+import Deku.Core (Element(..))
 import Deku.Core as Core
-import Deku.Rando (random)
 import Effect (Effect)
-import FRP.Event (create)
+import Effect.Random as R
+import FRP.Behavior (behavior)
+import FRP.Event (Event, create, makeEvent, subscribe)
 import Foreign.Object (Object)
 
 -- foreign
@@ -22,7 +24,7 @@ foreign import makeFFIDOMSnapshot :: Effect FFIDOMSnapshot
 
 foreign import renderDOM :: Array (Effect Unit) -> Effect Unit
 
-foreign import makeElement_
+foreign import makeElement
   :: Core.MakeElement
   -> FFIDOMSnapshot
   -> Effect Unit
@@ -35,13 +37,14 @@ foreign import makeText_
   -> FFIDOMSnapshot
   -> Effect Unit
 
-foreign import makeSubgraph_
+foreign import makeSubgraph
   :: forall index env
    . String
   -> String
   -> ( index
        -> Effect
-            { actualized :: Core.Element' FFIDOMSnapshot (Effect Unit)
+            { actualized ::
+                Event (FFIDOMSnapshot -> Effect Unit)
             , pusher :: env -> Effect Unit
             }
      )
@@ -56,13 +59,13 @@ foreign import sendSubgraphToTop_
 foreign import setAttribute_
   :: Core.SetAttribute -> FFIDOMSnapshot -> Effect Unit
 
-foreign import insertOrUpdateSubgraph_
+foreign import insertOrUpdateSubgraph
   :: forall index env
    . Core.InsertOrUpdateSubgraph index env
   -> FFIDOMSnapshot
   -> Effect Unit
 
-foreign import removeSubgraph_
+foreign import removeSubgraph
   :: forall index
    . Core.RemoveSubgraph index
   -> FFIDOMSnapshot
@@ -82,10 +85,12 @@ foreign import makePortal_ :: Core.MakePortal -> FFIDOMSnapshot -> Effect Unit
 foreign import makeGateway_ :: Core.MakeGateway -> FFIDOMSnapshot -> Effect Unit
 foreign import setPortal_ :: Core.SetPortal -> FFIDOMSnapshot -> Effect Unit
 
-effectfulDOMInterpret :: Core.DOMInterpret FFIDOMSnapshot (Effect Unit)
+effectfulDOMInterpret :: Core.DOMInterpret Event (FFIDOMSnapshot -> Effect Unit)
 effectfulDOMInterpret = Core.DOMInterpret
-  { ids: map show random
-  , makeElement: makeElement_
+  { ids: map show $ behavior \f -> makeEvent \k -> do
+      r <- R.random
+      subscribe f \x -> k (x r)
+  , makeElement: makeElement
   , makeRoot: makeRoot_
   , makeText: makeText_
   , makePursx: makePursx_
@@ -93,23 +98,24 @@ effectfulDOMInterpret = Core.DOMInterpret
   , makeGateway: makeGateway_
   , setPortal: setPortal_
   , makeSubgraph: \{ id, parent, scenes } dom ->
-      flip (makeSubgraph_ id parent) dom \index ->
+      flip (makeSubgraph id parent) dom \index ->
         do
           evtL <- create
           evtR <- create
           let event = map Left evtL.event <|> map Right evtR.event
           let
-            actualized = scenes
-              index
-              evtR.push
-              event
-              parent
-              effectfulDOMInterpret
+            actualized =
+              let
+                Element elt = scenes index
+                  evtR.push
+                  event
+              in
+                elt parent effectfulDOMInterpret
           pure { actualized, pusher: evtL.push }
   , setAttribute: setAttribute_
   , setText: setText_
   , sendSubgraphToTop: sendSubgraphToTop_
-  , insertOrUpdateSubgraph: \{ id, index, env, pos } -> insertOrUpdateSubgraph_
+  , insertOrUpdateSubgraph: \{ id, index, env, pos } -> insertOrUpdateSubgraph
       { id, index, env: Left env, pos }
-  , removeSubgraph: removeSubgraph_
+  , removeSubgraph: removeSubgraph
   }
diff --git a/src/Deku/Portal.purs b/src/Deku/Portal.purs
index 0f452043..0b859806 100644
--- a/src/Deku/Portal.purs
+++ b/src/Deku/Portal.purs
@@ -4,42 +4,52 @@ import Prelude
 
 import Control.Alt ((<|>))
 import Data.Foldable (oneOf)
-import Deku.Core (DOMInterpret(..), Element_, Subgraph_)
+import Deku.Core (DOMInterpret(..), Element(..), Subgraph)
 import FRP.Behavior (sample_)
-import FRP.Event (Event, keepLatest)
+import FRP.Event (class IsEvent, Event, keepLatest)
 
 type GatewayToSubgraph index env push =
-  forall dom engine
-   . (Event Boolean -> Element_ dom engine)
-  -> Subgraph_ index env push dom engine
+  forall event payload
+   . (Event Boolean -> Element event payload)
+  -> Subgraph index env push event payload
 
 type GatewayToElement =
-  forall dom engine
-   . (Event Boolean -> Element_ dom engine)
-  -> Element_ dom engine
+  forall event payload
+   . (Event Boolean -> Element event payload)
+  -> Element event payload
 
 portal
-  :: forall dom engine
-   . Element_ dom engine
-  -> ((Event Boolean -> Element_ dom engine) -> Element_ dom engine)
-  -> Element_ dom engine
-portal elt cf parent di@(DOMInterpret { ids, makePortal }) = keepLatest
-  ( (sample_ ids (pure unit)) <#> \portalId ->
-      let
-        cont = cf
-          \eb par (DOMInterpret { ids: ids2, makeGateway, setPortal }) ->
-            keepLatest
-              ( (sample_ ids2 (pure unit)) <#> \gatewayId ->
-                  pure
-                    ( makeGateway
-                        { id: gatewayId, parent: par, portal: portalId }
+  :: forall event payload
+   . IsEvent event
+  => Element event payload
+  -> ((event Boolean -> Element event payload) -> Element event payload)
+  -> Element event payload
+portal elt cf = Element go
+  where
+  go parent di@(DOMInterpret { ids, makePortal }) = keepLatest
+    ( (sample_ ids (pure unit)) <#> \portalId ->
+        let
+          cont = cf
+            \eb ->
+              let
+                gogo par (DOMInterpret { ids: ids2, makeGateway, setPortal }) =
+                  keepLatest
+                    ( (sample_ ids2 (pure unit)) <#> \gatewayId ->
+                        pure
+                          ( makeGateway
+                              { id: gatewayId, parent: par, portal: portalId }
+                          )
+                          <|> map (setPortal <<< { id: gatewayId, on: _ }) eb
                     )
-                    <|> map (setPortal <<< { id: gatewayId, on: _ }) eb
-              )
-      in
-        oneOf $
-          [ pure $ makePortal { id: portalId }
-          , elt portalId di -- this element's parent is the portal
-          , cont parent di -- this elements parent is the given parent
-          ]
-  )
\ No newline at end of file
+              in
+                Element gogo
+
+        in
+          oneOf $
+            [ pure $ makePortal { id: portalId }
+            , (let Element y = elt in y) portalId
+                di -- this element's parent is the portal
+            , (let Element y = cont in y) parent
+                di -- this elements parent is the given parent
+            ]
+    )
\ No newline at end of file
diff --git a/src/Deku/Pursx.purs b/src/Deku/Pursx.purs
index a5382b7c..177a6820 100644
--- a/src/Deku/Pursx.purs
+++ b/src/Deku/Pursx.purs
@@ -8,11 +8,11 @@ import Control.Alt ((<|>))
 import Data.Profunctor (lcmap)
 import Data.Symbol (class IsSymbol, reflectSymbol)
 import Deku.Attribute (Attribute, unsafeUnAttribute)
-import Deku.Core (DOMInterpret(..), Element_, Element)
+import Deku.Core (DOMInterpret(..), Element(..))
 import Deku.DOM (class TagToDeku)
-import Control.Plus (empty)
+import Control.Plus (class Plus, empty)
 import FRP.Behavior (sample_)
-import FRP.Event (Event, keepLatest)
+import FRP.Event (keepLatest, class IsEvent)
 import Prim.Boolean (False, True)
 import Prim.Row as Row
 import Prim.RowList as RL
@@ -20,13 +20,16 @@ import Prim.Symbol as Sym
 import Record (get)
 import Type.Proxy (Proxy(..))
 
-newtype PursxElement = PursxElement Element
-nut = PursxElement :: Element -> PursxElement
+newtype PursxElement event payload = PursxElement (Element event payload)
+nut
+  :: forall event payload. Element event payload -> PursxElement event payload
+nut = PursxElement
 
 pursx :: forall s. Proxy s
 pursx = Proxy
 class
   DoVerbForAttr
+    (event :: Type -> Type)
     (verb :: Symbol)
     (tag :: Symbol)
     (acc :: Symbol)
@@ -35,21 +38,24 @@ class
     (pursi :: Row Type)
     (purso :: Row Type)
     (newTail :: Symbol)
-  | verb acc head tail pursi -> purso newTail
+  | event verb acc head tail pursi -> purso newTail
 instance
   ( TagToDeku tag deku
-  , Row.Cons acc (Event (Attribute deku)) pursi purso
+  , IsEvent event
+  , Row.Cons acc (event (Attribute deku)) pursi purso
   ) =>
-  DoVerbForAttr verb tag acc verb tail pursi purso tail
+  DoVerbForAttr event verb tag acc verb tail pursi purso tail
 else instance
   ( Sym.Append acc anything acc2
   , Sym.Cons x y tail
-  , DoVerbForAttr verb tag acc2 x y pursi purso newTail
+  , DoVerbForAttr event verb tag acc2 x y pursi purso newTail
   ) =>
-  DoVerbForAttr verb tag acc anything tail pursi purso newTail
+  DoVerbForAttr event verb tag acc anything tail pursi purso newTail
 --
 class
   DoVerbForDOM
+    (event :: Type -> Type)
+    (payload :: Type)
     (verb :: Symbol)
     (acc :: Symbol)
     (head :: Symbol)
@@ -57,17 +63,17 @@ class
     (pursi :: Row Type)
     (purso :: Row Type)
     (newTail :: Symbol)
-  | verb acc head tail pursi -> purso newTail
+  | event payload verb acc head tail pursi -> purso newTail
 instance
-  ( Row.Cons acc PursxElement pursi purso
+  ( Row.Cons acc (PursxElement event payload) pursi purso
   ) =>
-  DoVerbForDOM verb acc verb tail pursi purso tail
+  DoVerbForDOM event payload verb acc verb tail pursi purso tail
 else instance
   ( Sym.Append acc anything acc2
   , Sym.Cons x y tail
-  , DoVerbForDOM verb acc2 x y pursi purso newTail
+  , DoVerbForDOM event payload verb acc2 x y pursi purso newTail
   ) =>
-  DoVerbForDOM verb acc anything tail pursi purso newTail
+  DoVerbForDOM event payload verb acc anything tail pursi purso newTail
 --
 class IsWhiteSpace (space :: Symbol)
 instance IsWhiteSpace ""
@@ -82,162 +88,172 @@ instance IsSingleWhiteSpace " "
 instance IsSingleWhiteSpace "\t"
 instance IsSingleWhiteSpace "\n"
 class
-  PXStart (verb :: Symbol) (head :: Symbol) (tail :: Symbol) (purs :: Row Type)
-  | verb head tail -> purs
+  PXStart
+    (event :: Type -> Type)
+    (payload :: Type)
+    (verb :: Symbol)
+    (head :: Symbol)
+    (tail :: Symbol)
+    (purs :: Row Type)
+  | event payload verb head tail -> purs
 instance
   ( Sym.Cons x y tail
-  , PXStart verb x y purs
+  , PXStart event payload verb x y purs
   ) =>
-  PXStart verb " " tail purs
+  PXStart event payload verb " " tail purs
 instance
   ( Sym.Cons x y tail
-  , PXStart verb x y purs
+  , PXStart event payload verb x y purs
   ) =>
-  PXStart verb "\t" tail purs
+  PXStart event payload verb "\t" tail purs
 instance
   ( Sym.Cons x y tail
-  , PXStart verb x y purs
+  , PXStart event payload verb x y purs
   ) =>
-  PXStart verb "\n" tail purs
+  PXStart event payload verb "\n" tail purs
 instance
   ( Sym.Cons x y tail
-  , PXTagPreName verb x y () purso trailing
+  , PXTagPreName event payload verb x y () purso trailing
   , IsWhiteSpace trailing
   ) =>
-  PXStart verb "<" tail purso
+  PXStart event payload verb "<" tail purso
 
 --
 class
   PXTagPreName
+    (event :: Type -> Type)
+    (payload :: Type)
     (verb :: Symbol)
     (head :: Symbol)
     (tail :: Symbol)
     (pursi :: Row Type)
     (purso :: Row Type)
     (trailing :: Symbol)
-  | verb head tail pursi -> purso trailing
+  | event payload verb head tail pursi -> purso trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagPreName verb x y pursi purso trailing
+  , PXTagPreName event payload verb x y pursi purso trailing
   ) =>
-  PXTagPreName verb " " tail pursi purso trailing
+  PXTagPreName event payload verb " " tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagPreName verb x y pursi purso trailing
+  , PXTagPreName event payload verb x y pursi purso trailing
   ) =>
-  PXTagPreName verb "\t" tail pursi purso trailing
+  PXTagPreName event payload verb "\t" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagPreName verb x y pursi purso trailing
+  , PXTagPreName event payload verb x y pursi purso trailing
   ) =>
-  PXTagPreName verb "\n" tail pursi purso trailing
+  PXTagPreName event payload verb "\n" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "a" tail pursi purso trailing
+  ( PXTagName event payload verb "" "a" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "a" tail pursi purso trailing
+  PXTagPreName event payload verb "a" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "b" tail pursi purso trailing
+  ( PXTagName event payload verb "" "b" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "b" tail pursi purso trailing
+  PXTagPreName event payload verb "b" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "c" tail pursi purso trailing
+  ( PXTagName event payload verb "" "c" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "c" tail pursi purso trailing
+  PXTagPreName event payload verb "c" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "d" tail pursi purso trailing
+  ( PXTagName event payload verb "" "d" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "d" tail pursi purso trailing
+  PXTagPreName event payload verb "d" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "e" tail pursi purso trailing
+  ( PXTagName event payload verb "" "e" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "e" tail pursi purso trailing
+  PXTagPreName event payload verb "e" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "f" tail pursi purso trailing
+  ( PXTagName event payload verb "" "f" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "f" tail pursi purso trailing
+  PXTagPreName event payload verb "f" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "g" tail pursi purso trailing
+  ( PXTagName event payload verb "" "g" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "g" tail pursi purso trailing
+  PXTagPreName event payload verb "g" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "h" tail pursi purso trailing
+  ( PXTagName event payload verb "" "h" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "h" tail pursi purso trailing
+  PXTagPreName event payload verb "h" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "i" tail pursi purso trailing
+  ( PXTagName event payload verb "" "i" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "i" tail pursi purso trailing
+  PXTagPreName event payload verb "i" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "j" tail pursi purso trailing
+  ( PXTagName event payload verb "" "j" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "j" tail pursi purso trailing
+  PXTagPreName event payload verb "j" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "k" tail pursi purso trailing
+  ( PXTagName event payload verb "" "k" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "k" tail pursi purso trailing
+  PXTagPreName event payload verb "k" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "l" tail pursi purso trailing
+  ( PXTagName event payload verb "" "l" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "l" tail pursi purso trailing
+  PXTagPreName event payload verb "l" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "m" tail pursi purso trailing
+  ( PXTagName event payload verb "" "m" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "m" tail pursi purso trailing
+  PXTagPreName event payload verb "m" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "n" tail pursi purso trailing
+  ( PXTagName event payload verb "" "n" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "n" tail pursi purso trailing
+  PXTagPreName event payload verb "n" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "o" tail pursi purso trailing
+  ( PXTagName event payload verb "" "o" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "o" tail pursi purso trailing
+  PXTagPreName event payload verb "o" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "p" tail pursi purso trailing
+  ( PXTagName event payload verb "" "p" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "p" tail pursi purso trailing
+  PXTagPreName event payload verb "p" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "q" tail pursi purso trailing
+  ( PXTagName event payload verb "" "q" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "q" tail pursi purso trailing
+  PXTagPreName event payload verb "q" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "r" tail pursi purso trailing
+  ( PXTagName event payload verb "" "r" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "r" tail pursi purso trailing
+  PXTagPreName event payload verb "r" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "s" tail pursi purso trailing
+  ( PXTagName event payload verb "" "s" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "s" tail pursi purso trailing
+  PXTagPreName event payload verb "s" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "t" tail pursi purso trailing
+  ( PXTagName event payload verb "" "t" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "t" tail pursi purso trailing
+  PXTagPreName event payload verb "t" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "u" tail pursi purso trailing
+  ( PXTagName event payload verb "" "u" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "u" tail pursi purso trailing
+  PXTagPreName event payload verb "u" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "v" tail pursi purso trailing
+  ( PXTagName event payload verb "" "v" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "v" tail pursi purso trailing
+  PXTagPreName event payload verb "v" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "w" tail pursi purso trailing
+  ( PXTagName event payload verb "" "w" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "w" tail pursi purso trailing
+  PXTagPreName event payload verb "w" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "x" tail pursi purso trailing
+  ( PXTagName event payload verb "" "x" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "x" tail pursi purso trailing
+  PXTagPreName event payload verb "x" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "y" tail pursi purso trailing
+  ( PXTagName event payload verb "" "y" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "y" tail pursi purso trailing
+  PXTagPreName event payload verb "y" tail pursi purso trailing
 instance
-  ( PXTagName verb "" "z" tail pursi purso trailing
+  ( PXTagName event payload verb "" "z" tail pursi purso trailing
   ) =>
-  PXTagPreName verb "z" tail pursi purso trailing
+  PXTagPreName event payload verb "z" tail pursi purso trailing
 --
 class
   PXTagName
+    (event :: Type -> Type)
+    (payload :: Type)
     (verb :: Symbol)
     (tag :: Symbol)
     (head :: Symbol)
@@ -245,251 +261,251 @@ class
     (pursi :: Row Type)
     (purso :: Row Type)
     (trailing :: Symbol)
-  | verb tag head tail pursi -> purso trailing
+  | event payload verb tag head tail pursi -> purso trailing
 instance
   ( Sym.Cons q r tail
-  , PXBody verb q r pursi purso trailing
+  , PXBody event payload verb q r pursi purso trailing
   , Sym.Cons x y trailing
   , PreEndTagFromTrailing x y tag newTrailing
   ) =>
-  PXTagName verb tag ">" tail pursi purso newTrailing
+  PXTagName event payload verb tag ">" tail pursi purso newTrailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "a" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "a" tail pursi purso trailing
+  PXTagName event payload verb tag_ "a" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "b" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "b" tail pursi purso trailing
+  PXTagName event payload verb tag_ "b" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "c" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "c" tail pursi purso trailing
+  PXTagName event payload verb tag_ "c" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "d" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "d" tail pursi purso trailing
+  PXTagName event payload verb tag_ "d" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "e" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "e" tail pursi purso trailing
+  PXTagName event payload verb tag_ "e" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "f" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "f" tail pursi purso trailing
+  PXTagName event payload verb tag_ "f" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "g" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "g" tail pursi purso trailing
+  PXTagName event payload verb tag_ "g" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "h" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "h" tail pursi purso trailing
+  PXTagName event payload verb tag_ "h" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "i" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "i" tail pursi purso trailing
+  PXTagName event payload verb tag_ "i" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "j" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "j" tail pursi purso trailing
+  PXTagName event payload verb tag_ "j" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "k" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "k" tail pursi purso trailing
+  PXTagName event payload verb tag_ "k" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "l" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "l" tail pursi purso trailing
+  PXTagName event payload verb tag_ "l" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "m" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "m" tail pursi purso trailing
+  PXTagName event payload verb tag_ "m" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "n" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "n" tail pursi purso trailing
+  PXTagName event payload verb tag_ "n" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "o" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "o" tail pursi purso trailing
+  PXTagName event payload verb tag_ "o" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "p" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "p" tail pursi purso trailing
+  PXTagName event payload verb tag_ "p" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "q" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "q" tail pursi purso trailing
+  PXTagName event payload verb tag_ "q" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "r" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "r" tail pursi purso trailing
+  PXTagName event payload verb tag_ "r" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "s" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "s" tail pursi purso trailing
+  PXTagName event payload verb tag_ "s" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "t" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "t" tail pursi purso trailing
+  PXTagName event payload verb tag_ "t" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "u" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "u" tail pursi purso trailing
+  PXTagName event payload verb tag_ "u" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "v" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "v" tail pursi purso trailing
+  PXTagName event payload verb tag_ "v" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "w" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "w" tail pursi purso trailing
+  PXTagName event payload verb tag_ "w" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "x" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "x" tail pursi purso trailing
+  PXTagName event payload verb tag_ "x" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "y" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "y" tail pursi purso trailing
+  PXTagName event payload verb tag_ "y" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "z" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "z" tail pursi purso trailing
+  PXTagName event payload verb tag_ "z" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "-" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "-" tail pursi purso trailing
+  PXTagName event payload verb tag_ "-" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "0" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "0" tail pursi purso trailing
+  PXTagName event payload verb tag_ "0" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "1" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "1" tail pursi purso trailing
+  PXTagName event payload verb tag_ "1" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "2" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "2" tail pursi purso trailing
+  PXTagName event payload verb tag_ "2" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "3" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "3" tail pursi purso trailing
+  PXTagName event payload verb tag_ "3" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "4" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "4" tail pursi purso trailing
+  PXTagName event payload verb tag_ "4" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "5" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "5" tail pursi purso trailing
+  PXTagName event payload verb tag_ "5" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "6" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "6" tail pursi purso trailing
+  PXTagName event payload verb tag_ "6" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "7" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "7" tail pursi purso trailing
+  PXTagName event payload verb tag_ "7" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "8" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "8" tail pursi purso trailing
+  PXTagName event payload verb tag_ "8" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
   , Sym.Append tag_ "9" tag
-  , PXTagName verb tag x y pursi purso trailing
+  , PXTagName event payload verb tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag_ "9" tail pursi purso trailing
+  PXTagName event payload verb tag_ "9" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagPreAttrName verb False tag x y pursi purso trailing
+  , PXTagPreAttrName event payload verb False tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag " " tail pursi purso trailing
+  PXTagName event payload verb tag " " tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagPreAttrName verb False tag x y pursi purso trailing
+  , PXTagPreAttrName event payload verb False tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag "\t" tail pursi purso trailing
+  PXTagName event payload verb tag "\t" tail pursi purso trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagPreAttrName verb False tag x y pursi purso trailing
+  , PXTagPreAttrName event payload verb False tag x y pursi purso trailing
   ) =>
-  PXTagName verb tag "\n" tail pursi purso trailing
+  PXTagName event payload verb tag "\n" tail pursi purso trailing
 --
 class
   PreEndTagFromTrailing
@@ -856,6 +872,8 @@ instance EndTagFromTrailing ">" tail tag tag tail
 --
 class
   PXTagPreAttrName
+    (event :: Type -> Type)
+    (payload :: Type)
     (verb :: Symbol)
     (hasAttributed :: Boolean)
     (tag :: Symbol)
@@ -864,253 +882,823 @@ class
     (pursi :: Row Type)
     (purso :: Row Type)
     (trailing :: Symbol)
-  | verb hasAttributed tag head tail pursi -> purso trailing
+  | event payload verb hasAttributed tag head tail pursi -> purso trailing
 instance
   ( Sym.Cons ">" trailing tail
   ) =>
-  PXTagPreAttrName verb hasAttributed tag "/" tail purs purs trailing
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "/"
+    tail
+    purs
+    purs
+    trailing
 -- trailing will be by definition whatever comes after the closing tag, ie </ foo> will be " foo>"
 else instance
   ( Sym.Cons q r tail
-  , PXBody verb q r pursi purso trailing
+  , PXBody event payload verb q r pursi purso trailing
   , Sym.Cons x y trailing
   , PreEndTagFromTrailing x y tag newTrailing
   ) =>
-  PXTagPreAttrName verb hasAttributed tag ">" tail pursi purso newTrailing
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    ">"
+    tail
+    pursi
+    purso
+    newTrailing
 --
 else instance
   ( Sym.Cons x y tail
-  , PXTagPreAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag " " tail pursi purso trailing
-else instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "\t" tail pursi purso trailing
-else instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "\n" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "a" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "a" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "b" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "b" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "c" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "c" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "d" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "d" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "e" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "e" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "f" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "f" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "g" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "g" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "h" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "h" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "i" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "i" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "j" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "j" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "k" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "k" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "l" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "l" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "m" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "m" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "n" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "n" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "o" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "o" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "p" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "p" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "q" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "q" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "r" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "r" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "s" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "s" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "t" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "t" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "u" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "u" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "v" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "v" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "w" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "w" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "x" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "x" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "y" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "y" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "z" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "z" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "A" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "A" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "B" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "B" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "C" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "C" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "D" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "D" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "E" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "E" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "F" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "F" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "G" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "G" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "H" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "H" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "I" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "I" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "J" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "J" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "K" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "K" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "L" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "L" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "M" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "M" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "N" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "N" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "O" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "O" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "P" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "P" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "Q" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "Q" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "R" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "R" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "S" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "S" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "T" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "T" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "U" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "U" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "V" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "V" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "W" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "W" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "X" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "X" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "Y" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "Y" tail pursi purso trailing
-else instance
-  ( PXTagAttrName verb hasAttributed tag "Z" tail pursi purso trailing
-  ) =>
-  PXTagPreAttrName verb hasAttributed tag "Z" tail pursi purso trailing
-else instance
-  ( Sym.Cons x y tail
-  , DoVerbForAttr verb tag "" x y pursi pursx newTail
+  , PXTagPreAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    " "
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\t"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\n"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "a" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "a"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "b" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "b"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "c" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "c"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "d" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "d"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "e" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "e"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "f" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "f"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "g" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "g"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "h" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "h"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "i" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "i"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "j" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "j"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "k" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "k"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "l" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "l"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "m" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "m"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "n" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "n"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "o" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "o"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "p" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "p"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "q" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "q"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "r" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "r"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "s" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "s"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "t" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "t"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "u" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "u"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "v" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "v"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "w" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "w"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "x" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "x"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "y" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "y"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "z" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "z"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "A" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "A"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "B" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "B"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "C" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "C"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "D" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "D"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "E" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "E"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "F" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "F"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "G" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "G"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "H" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "H"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "I" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "I"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "J" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "J"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "K" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "K"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "L" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "L"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "M" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "M"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "N" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "N"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "O" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "O"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "P" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "P"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "Q" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "Q"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "R" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "R"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "S" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "S"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "T" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "T"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "U" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "U"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "V" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "V"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "W" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "W"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "X" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "X"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "Y" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "Y"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( PXTagAttrName event payload verb hasAttributed tag "Z" tail pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "Z"
+    tail
+    pursi
+    purso
+    trailing
+else instance
+  ( Sym.Cons x y tail
+  , DoVerbForAttr event verb tag "" x y pursi pursx newTail
   , Sym.Cons xx yy newTail
-  , PXTagPreAttrName verb True tag xx yy pursx purso trailing
+  , PXTagPreAttrName event payload verb True tag xx yy pursx purso trailing
   ) =>
-  PXTagPreAttrName verb False tag verb tail pursi purso trailing
+  PXTagPreAttrName event payload verb False tag verb tail pursi purso trailing
 --
 class
   PXTagAttrName
+    (event :: Type -> Type)
+    (payload :: Type)
     (verb :: Symbol)
     (hasAttributed :: Boolean)
     (tag :: Symbol)
@@ -1119,846 +1707,2141 @@ class
     (pursi :: Row Type)
     (purso :: Row Type)
     (trailing :: Symbol)
-  | verb hasAttributed tag head tail pursi -> purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "a" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "b" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "c" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "d" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "e" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "f" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "g" tail pursi purso trailing
-instance
+  | event payload verb hasAttributed tag head tail pursi -> purso trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "a"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "b"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "c"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "d"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "e"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "f"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "g"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "h"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "i"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "j"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "k"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "l"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "m"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "n"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "o"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "p"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "q"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "r"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "s"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "t"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "u"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "v"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "w"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "x"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "y"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "z"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "-"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "0"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "1"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "2"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "3"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "4"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "5"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "6"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "7"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "8"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrName event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "9"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "="
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    " "
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\t"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\n"
+    tail
+    pursi
+    purso
+    trailing
+--
+class
+  PXTagPostAttrName
+    (event :: Type -> Type)
+    (payload :: Type)
+    (verb :: Symbol)
+    (hasAttributed :: Boolean)
+    (tag :: Symbol)
+    (head :: Symbol)
+    (tail :: Symbol)
+    (pursi :: Row Type)
+    (purso :: Row Type)
+    (trailing :: Symbol)
+  | event payload verb hasAttributed tag head tail pursi -> purso trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPostAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    " "
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPostAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\t"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPostAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPostAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\n"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPostAttrName event
+    payload
+    verb
+    hasAttributed
+    tag
+    "="
+    tail
+    pursi
+    purso
+    trailing
+--
+class
+  PXTagPreAttrValue
+    (event :: Type -> Type)
+    (payload :: Type)
+    (verb :: Symbol)
+    (hasAttributed :: Boolean)
+    (tag :: Symbol)
+    (head :: Symbol)
+    (tail :: Symbol)
+    (pursi :: Row Type)
+    (purso :: Row Type)
+    (trailing :: Symbol)
+  | event payload verb hasAttributed tag head tail pursi -> purso trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    " "
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\t"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrValue event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagPreAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\n"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagPreAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\""
+    tail
+    pursi
+    purso
+    trailing
+--
+class
+  PXTagAttrValue
+    (event :: Type -> Type)
+    (payload :: Type)
+    (verb :: Symbol)
+    (hasAttributed :: Boolean)
+    (tag :: Symbol)
+    (head :: Symbol)
+    (tail :: Symbol)
+    (pursi :: Row Type)
+    (purso :: Row Type)
+    (trailing :: Symbol)
+  | event payload verb hasAttributed tag head tail pursi -> purso trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "a"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "b"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "c"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "d"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "e"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "f"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "g"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "h"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "i"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "j"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "k"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "l"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "m"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "n"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "o"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "p"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "q"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "r"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "s"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "t"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "u"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "v"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "w"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "x"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "y"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "z"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "A"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "B"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "C"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "D"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "E"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "F"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "G"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "H"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "I"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "J"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "K"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "L"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "M"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "N"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "O"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "P"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "Q"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "R"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "S"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "T"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "U"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "V"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "W"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "X"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "Y"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "Z"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "0"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "1"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "2"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "3"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "4"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "5"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "6"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "7"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "8"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "9"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    ":"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    ","
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    ";"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "'"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "!"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "@"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "#"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "$"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "%"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "^"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "&"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "*"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "("
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    ")"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "_"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "-"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "="
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "`"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "~"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "<"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    ">"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "/"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "."
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\\"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    " "
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\t"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagAttrValue event payload verb hasAttributed tag x y pursi purso trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\n"
+    tail
+    pursi
+    purso
+    trailing
+instance
+  ( Sym.Cons x y tail
+  , PXTagPreAttrName event payload verb hasAttributed tag x y pursi purso
+      trailing
+  ) =>
+  PXTagAttrValue event
+    payload
+    verb
+    hasAttributed
+    tag
+    "\""
+    tail
+    pursi
+    purso
+    trailing
+class
+  PXBody
+    (event :: Type -> Type)
+    (payload :: Type)
+    (verb :: Symbol)
+    (head :: Symbol)
+    (tail :: Symbol)
+    (pursi :: Row Type)
+    (purso :: Row Type)
+    (trailing :: Symbol)
+  | event payload verb tail pursi -> purso trailing
+
+class
+  CommendEndCandidate2 (head :: Symbol) (tail :: Symbol) (trailing :: Symbol)
+  | head tail -> trailing
+instance CommendEndCandidate2 ">" tail tail
+else instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , SkipUntilCommentEnd x y trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "h" tail pursi purso trailing
+  CommendEndCandidate2 anything tail trailing
+class
+  CommendEndCandidate1 (head :: Symbol) (tail :: Symbol) (trailing :: Symbol)
+  | head tail -> trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , CommendEndCandidate2 x y trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "i" tail pursi purso trailing
-instance
+  CommendEndCandidate1 "-" tail trailing
+else instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , SkipUntilCommentEnd x y trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "j" tail pursi purso trailing
+  CommendEndCandidate1 anything tail trailing
+class
+  SkipUntilCommentEnd (head :: Symbol) (tail :: Symbol) (trailing :: Symbol)
+  | head tail -> trailing
 instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , CommendEndCandidate1 x y trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "k" tail pursi purso trailing
-instance
+  SkipUntilCommentEnd "-" tail trailing
+else instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , SkipUntilCommentEnd x y trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "l" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  SkipUntilCommentEnd anything tail trailing
+class
+  CloseOrRepeat
+    (event :: Type -> Type)
+    (payload :: Type)
+    (verb :: Symbol)
+    (head :: Symbol)
+    (tail :: Symbol)
+    (pursi :: Row Type)
+    (purso :: Row Type)
+    (trailing :: Symbol)
+  | event payload verb head tail pursi -> purso trailing
+instance CloseOrRepeat event payload verb "/" tail purs purs tail
+else instance
+  ( Sym.Cons "-" y tail
+  , Sym.Cons "-" yy y
+  , Sym.Cons x yyy yy
+  , SkipUntilCommentEnd x yyy trailing
+  , Sym.Cons mm bb trailing
+  , PXBody event payload verb mm bb pursi purso newTrailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "m" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  CloseOrRepeat event payload verb "!" tail pursi purso newTrailing
+else instance
+  ( PXTagPreName event payload verb anything tail () pursm trailing
+  , Row.Union pursi pursm pursz
+  , Sym.Cons x y trailing
+  , PXBody event payload verb x y pursz purso newTrailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "n" tail pursi purso trailing
+  CloseOrRepeat event payload verb anything tail pursi purso newTrailing
 instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , CloseOrRepeat event payload verb x y pursi purso trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "o" tail pursi purso trailing
-instance
+  PXBody event payload verb "<" tail pursi purso trailing
+else instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , DoVerbForDOM event payload verb "" x y pursi pursx newTail
+  , Sym.Cons xx yy newTail
+  , PXBody event payload verb xx yy pursx purso trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "p" tail pursi purso trailing
-instance
+  PXBody event payload verb verb tail pursi purso trailing
+else instance
   ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  , PXBody event payload verb x y pursi purso trailing
   ) =>
-  PXTagAttrName verb hasAttributed tag "q" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  PXBody event payload verb anything tail pursi purso trailing
+
+class
+  Plus event <=
+  PursxToElement event payload (rl :: RL.RowList Type) (r :: Row Type)
+  | rl -> event payload r where
+  pursxToElement
+    :: forall proxy
+     . proxy rl
+    -> { | r }
+    -> { cache :: Object.Object Boolean, element :: Element event payload }
+
+instance pursxToElementConsElt ::
+  ( Row.Cons key (PursxElement event payload) r' r
+  , PursxToElement event payload rest r
+  , IsSymbol key
   ) =>
-  PXTagAttrName verb hasAttributed tag "r" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
+  PursxToElement event payload (RL.Cons key (PursxElement event payload) rest) r where
+  pursxToElement _ r =
+    let
+      { cache, element } = pursxToElement (Proxy :: Proxy rest) r
+    in
+      { cache: Object.insert (reflectSymbol pxk) false cache
+      , element: Element \parent di ->
+          (let Element y = pxe in y) (reflectSymbol pxk) di
+            <|> (let Element y = element in y) parent di
+      }
+    where
+    pxk = Proxy :: _ key
+    PursxElement pxe = get pxk r
+
+else instance pursxToElementConsAttr ::
+  ( Row.Cons key (event (Attribute deku)) r' r
+  , PursxToElement event payload rest r
+  , IsSymbol key
   ) =>
-  PXTagAttrName verb hasAttributed tag "s" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "t" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "u" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "v" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "w" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "x" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "y" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "z" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "-" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "0" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "1" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "2" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "3" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "4" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "5" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "6" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "7" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "8" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "9" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "=" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag " " tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "\t" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrName verb hasAttributed tag "\n" tail pursi purso trailing
---
-class
-  PXTagPostAttrName
-    (verb :: Symbol)
-    (hasAttributed :: Boolean)
-    (tag :: Symbol)
-    (head :: Symbol)
-    (tail :: Symbol)
-    (pursi :: Row Type)
-    (purso :: Row Type)
-    (trailing :: Symbol)
-  | verb hasAttributed tag head tail pursi -> purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPostAttrName verb hasAttributed tag " " tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPostAttrName verb hasAttributed tag "\t" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPostAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPostAttrName verb hasAttributed tag "\n" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPostAttrName verb hasAttributed tag "=" tail pursi purso trailing
---
-class
-  PXTagPreAttrValue
-    (verb :: Symbol)
-    (hasAttributed :: Boolean)
-    (tag :: Symbol)
-    (head :: Symbol)
-    (tail :: Symbol)
-    (pursi :: Row Type)
-    (purso :: Row Type)
-    (trailing :: Symbol)
-  | verb hasAttributed tag head tail pursi -> purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrValue verb hasAttributed tag " " tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrValue verb hasAttributed tag "\t" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrValue verb hasAttributed tag "\n" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagPreAttrValue verb hasAttributed tag "\"" tail pursi purso trailing
---
-class
-  PXTagAttrValue
-    (verb :: Symbol)
-    (hasAttributed :: Boolean)
-    (tag :: Symbol)
-    (head :: Symbol)
-    (tail :: Symbol)
-    (pursi :: Row Type)
-    (purso :: Row Type)
-    (trailing :: Symbol)
-  | verb hasAttributed tag head tail pursi -> purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "a" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "b" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "c" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "d" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "e" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "f" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "g" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "h" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "i" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "j" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "k" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "l" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "m" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "n" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "o" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "p" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "q" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "r" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "s" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "t" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "u" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "v" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "w" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "x" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "y" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "z" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "A" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "B" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "C" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "D" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "E" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "F" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "G" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "H" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "I" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "J" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "K" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "L" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "M" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "N" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "O" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "P" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "Q" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "R" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "S" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "T" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "U" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "V" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "W" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "X" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "Y" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "Z" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "0" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "1" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "2" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "3" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "4" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "5" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "6" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "7" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "8" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "9" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag ":" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "," tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag ";" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "'" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "!" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "@" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "#" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "$" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "%" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "^" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "&" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "*" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "(" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag ")" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "_" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "-" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "=" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "`" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "~" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "<" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag ">" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "/" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "." tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "\\" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag " " tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "\t" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagAttrValue verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "\n" tail pursi purso trailing
-instance
-  ( Sym.Cons x y tail
-  , PXTagPreAttrName verb hasAttributed tag x y pursi purso trailing
-  ) =>
-  PXTagAttrValue verb hasAttributed tag "\"" tail pursi purso trailing
-class
-  PXBody
-    (verb :: Symbol)
-    (head :: Symbol)
-    (tail :: Symbol)
-    (pursi :: Row Type)
-    (purso :: Row Type)
-    (trailing :: Symbol)
-  | verb tail pursi -> purso trailing
-
-class
-  CommendEndCandidate2 (head :: Symbol) (tail :: Symbol) (trailing :: Symbol)
-  | head tail -> trailing
-instance CommendEndCandidate2 ">" tail tail
-else instance
-  ( Sym.Cons x y tail
-  , SkipUntilCommentEnd x y trailing
-  ) =>
-  CommendEndCandidate2 anything tail trailing
-class
-  CommendEndCandidate1 (head :: Symbol) (tail :: Symbol) (trailing :: Symbol)
-  | head tail -> trailing
-instance
-  ( Sym.Cons x y tail
-  , CommendEndCandidate2 x y trailing
-  ) =>
-  CommendEndCandidate1 "-" tail trailing
-else instance
-  ( Sym.Cons x y tail
-  , SkipUntilCommentEnd x y trailing
-  ) =>
-  CommendEndCandidate1 anything tail trailing
-class
-  SkipUntilCommentEnd (head :: Symbol) (tail :: Symbol) (trailing :: Symbol)
-  | head tail -> trailing
-instance
-  ( Sym.Cons x y tail
-  , CommendEndCandidate1 x y trailing
-  ) =>
-  SkipUntilCommentEnd "-" tail trailing
-else instance
-  ( Sym.Cons x y tail
-  , SkipUntilCommentEnd x y trailing
-  ) =>
-  SkipUntilCommentEnd anything tail trailing
-class
-  CloseOrRepeat
-    (verb :: Symbol)
-    (head :: Symbol)
-    (tail :: Symbol)
-    (pursi :: Row Type)
-    (purso :: Row Type)
-    (trailing :: Symbol)
-  | verb head tail pursi -> purso trailing
-instance CloseOrRepeat verb "/" tail purs purs tail
-else instance
-  ( Sym.Cons "-" y tail
-  , Sym.Cons "-" yy y
-  , Sym.Cons x yyy yy
-  , SkipUntilCommentEnd x yyy trailing
-  , Sym.Cons mm bb trailing
-  , PXBody verb mm bb pursi purso newTrailing
-  ) =>
-  CloseOrRepeat verb "!" tail pursi purso newTrailing
-else instance
-  ( PXTagPreName verb anything tail () pursm trailing
-  , Row.Union pursi pursm pursz
-  , Sym.Cons x y trailing
-  , PXBody verb x y pursz purso newTrailing
-  ) =>
-  CloseOrRepeat verb anything tail pursi purso newTrailing
-instance
-  ( Sym.Cons x y tail
-  , CloseOrRepeat verb x y pursi purso trailing
-  ) =>
-  PXBody verb "<" tail pursi purso trailing
-else instance
-  ( Sym.Cons x y tail
-  , DoVerbForDOM verb "" x y pursi pursx newTail
-  , Sym.Cons xx yy newTail
-  , PXBody verb xx yy pursx purso trailing
-  ) =>
-  PXBody verb verb tail pursi purso trailing
-else instance
-  ( Sym.Cons x y tail
-  , PXBody verb x y pursi purso trailing
-  ) =>
-  PXBody verb anything tail pursi purso trailing
-
-class PursxToElement (rl :: RL.RowList Type) (r :: Row Type) | rl -> r where
-  pursxToElement
-    :: forall proxy dom engine
-     . proxy rl
-    -> { | r }
-    -> { cache :: Object.Object Boolean, element :: Element_ dom engine }
-
-instance pursxToElementConsAttr ::
-  ( Row.Cons key (Event (Attribute deku)) r' r
-  , PursxToElement rest r
-  , IsSymbol key
-  ) =>
-  PursxToElement (RL.Cons key (Event (Attribute deku)) rest) r where
+  PursxToElement event payload (RL.Cons key (event (Attribute deku)) rest) r where
   pursxToElement _ r =
     let
       { cache, element } = pursxToElement (Proxy :: Proxy rest) r
     in
       { cache: Object.insert (reflectSymbol pxk) true cache
-      , element: \parent di@(DOMInterpret { setAttribute }) ->
+      , element: Element \parent di@(DOMInterpret { setAttribute }) ->
           map
             ( lcmap unsafeUnAttribute
                 ( \{ key, value } -> setAttribute
@@ -1969,78 +3852,65 @@ instance pursxToElementConsAttr ::
                 )
             )
             (get pxk r)
-            <|> element parent di
+            <|> (let Element y = element in y) parent di
       }
     where
     pxk = Proxy :: _ key
 
-instance pursxToElementConsElt ::
-  ( Row.Cons key PursxElement r' r
-  , PursxToElement rest r
-  , IsSymbol key
-  ) =>
-  PursxToElement (RL.Cons key PursxElement rest) r where
-  pursxToElement _ r =
-    let
-      { cache, element } = pursxToElement (Proxy :: Proxy rest) r
-    in
-      { cache: Object.insert (reflectSymbol pxk) false cache
-      , element: \parent di -> pxe (reflectSymbol pxk) di
-          <|> element parent di
-      }
-    where
-    pxk = Proxy :: _ key
-    PursxElement pxe = get pxk r
-
 instance pursxToElementNil ::
-  PursxToElement RL.Nil r where
-  pursxToElement _ _ = { cache: Object.empty, element: \_ _ -> empty }
+  Plus event =>
+  PursxToElement event payload RL.Nil r where
+  pursxToElement _ _ = { cache: Object.empty, element: Element \_ _ -> empty }
 
 psx
-  :: forall proxy (html :: Symbol)
+  :: forall event payload proxy (html :: Symbol)
    . IsSymbol html
-  => PXStart "~" " " html ()
-  => PursxToElement RL.Nil ()
+  => PXStart event payload "~" " " html ()
+  => PursxToElement event payload RL.Nil ()
+  => IsEvent event
   => proxy html
-  -> Element
+  -> Element event payload
 psx px = makePursx px {}
 
 makePursx
-  :: forall proxy (html :: Symbol) r rl
+  :: forall event payload proxy (html :: Symbol) r rl
    . IsSymbol html
-  => PXStart "~" " " html r
+  => PXStart event payload "~" " " html r
   => RL.RowToList r rl
-  => PursxToElement rl r
+  => PursxToElement event payload rl r
+  => IsEvent event
   => proxy html
   -> { | r }
-  -> Element
+  -> Element event payload
 makePursx = makePursx' (Proxy :: _ "~")
 
 makePursx'
-  :: forall verb proxyA proxyB (html :: Symbol) r rl
+  :: forall event payload verb proxyA proxyB (html :: Symbol) r rl
    . IsSymbol html
   => IsSymbol verb
-  => PXStart verb " " html r
+  => PXStart event payload verb " " html r
   => RL.RowToList r rl
-  => PursxToElement rl r
+  => PursxToElement event payload rl r
+  => IsEvent event
   => proxyA verb
   -> proxyB html
   -> { | r }
-  -> Element
-makePursx' verb html r parent di@(DOMInterpret { makePursx, ids }) = keepLatest
-  ( (sample_ ids (pure unit)) <#> \me ->
-      let
-        { cache, element } = pursxToElement (Proxy :: _ rl) r
-      in
-        ( pure $ makePursx
-            { id: me
-            , parent
-            , cache
-            , html: reflectSymbol html
-            , verb: reflectSymbol verb
-            }
-        ) <|> element me di
-  )
+  -> Element event payload
+makePursx' verb html r = Element go
+  where
+  go parent di@(DOMInterpret { makePursx: mpx, ids }) = keepLatest
+    ( (sample_ ids (pure unit)) <#> \me ->
+        let
+          { cache, element } = pursxToElement (Proxy :: _ rl) r
+        in
+          ( pure $ mpx
+              { id: me
+              , parent
+              , cache
+              , html: reflectSymbol html
+              , verb: reflectSymbol verb
+              }
+          ) <|> (let Element y = element in y) me di
+    )
 
 infixr 5 makePursx as ~~
-
diff --git a/src/Deku/Rando.purs b/src/Deku/Rando.purs
deleted file mode 100644
index 69ca6ad1..00000000
--- a/src/Deku/Rando.purs
+++ /dev/null
@@ -1,12 +0,0 @@
-module Deku.Rando where
-
-import Prelude
-
-import Effect.Random as R
-import FRP.Behavior (Behavior, behavior)
-import FRP.Event (makeEvent, subscribe)
-
-random :: Behavior Number
-random = behavior \f -> makeEvent \k -> do
-  r <- R.random
-  subscribe f \x -> k (x r)
\ No newline at end of file
diff --git a/src/Deku/Subgraph.purs b/src/Deku/Subgraph.purs
index ac5070c6..05bdae57 100644
--- a/src/Deku/Subgraph.purs
+++ b/src/Deku/Subgraph.purs
@@ -5,9 +5,9 @@ import Prelude
 import Control.Alt ((<|>))
 import Data.Hashable (class Hashable, hash)
 import Data.Tuple.Nested (type (/\), (/\))
-import Deku.Core (DOMInterpret(..), Element, Element_, Subgraph, Subgraph_)
+import Deku.Core (DOMInterpret(..), Element(..), Subgraph)
 import FRP.Behavior (sample_)
-import FRP.Event (Event, keepLatest)
+import FRP.Event (class IsEvent, keepLatest)
 
 data SubgraphAction env
   = InsertOrUpdate env
@@ -15,34 +15,35 @@ data SubgraphAction env
   | Remove
 
 subgraph
-  :: forall index env push dom engine
+  :: forall index env push event payload
    . Hashable index
-  => Event (index /\ SubgraphAction env)
-  -> Subgraph_ index env push dom engine
-  -> Element_ dom engine
-subgraph
-  mods
-  scenes
-  parent
-  ( DOMInterpret
-      { makeSubgraph
-      , insertOrUpdateSubgraph
-      , sendSubgraphToTop
-      , removeSubgraph
-      , ids
-      }
-  ) =
-  keepLatest $ map
-    ( \id -> pure (makeSubgraph { id, parent, scenes: scenes }) <|>
-        map
-          ( \(index /\ instr) -> case instr of
-              Remove -> removeSubgraph { id, pos: hash index, index }
-              SendToTop -> sendSubgraphToTop { id, pos: hash index, index }
-              InsertOrUpdate env -> insertOrUpdateSubgraph
-                { id, pos: hash index, index, env }
-          )
-          mods
-    )
-    (sample_ ids (pure unit))
+  => IsEvent event
+  => event (index /\ SubgraphAction env)
+  -> Subgraph index env push event payload
+  -> Element event payload
+subgraph mods scenes = Element go
+  where
+  go
+    parent
+    ( DOMInterpret
+        { makeSubgraph
+        , insertOrUpdateSubgraph
+        , sendSubgraphToTop
+        , removeSubgraph
+        , ids
+        }
+    ) =
+    keepLatest $ map
+      ( \id -> pure (makeSubgraph { id, parent, scenes: scenes }) <|>
+          map
+            ( \(index /\ instr) -> case instr of
+                Remove -> removeSubgraph { id, pos: hash index, index }
+                SendToTop -> sendSubgraphToTop { id, pos: hash index, index }
+                InsertOrUpdate env -> insertOrUpdateSubgraph
+                  { id, pos: hash index, index, env }
+            )
+            mods
+      )
+      (sample_ ids (pure unit))
 
 infixr 6 subgraph as @@
\ No newline at end of file