# Pastebin 3BFG7jkW
render :: Foldable t => t (Html (), Html ()) -> Html ()
render items =
  ul_ [data_ "accordion" "", class_ "bx--accordion"] $ do
    forM_ items $ \(title, content) ->
      li_ [data_ "accordion-item" "", class_ "bx--accordion__item"] $ do
        button_ [class_ "bx--accordion__heading", aria_ "expanded" "false", aria_ "controls" "pane1"] $ do
          div_ [class_ "bx--accordion__title"] title
        div_ [id_ "pane1", class_ "bx--accordion__content"] content