[why]#chunky bacon#
>>>
Document
  { docMeta =
      Meta
        { docTitle = []
        , docTitleAttributes = Nothing
        , docAuthors = []
        , docRevision = Nothing
        , docAttributes = fromList [ ( "sectids" , "" ) ]
        }
  , docBlocks =
      [ Block
          mempty
          Nothing
          (Paragraph
             [ Inline
                 Attr
                 ( [] , fromList [ ( "role" , "why" ) ] )
                 (Span [ Inline mempty (Str "chunky bacon") ])
             ])
      ]
  }