Right
    [ TokenProlog
        ( Prolog
            { prologXmlDeclaration = Just
                ( XMLDeclaration "1.0"
                    ( Just "utf-8" ) Nothing
                )
            , prologInstructions = []
            , prologDoctype = Just
                ( Doctype "sgml" Nothing
                    ( InternalSubset
                        { _elementTypes =
                            [ ElementType "sgml" ContentAny ]
                        , _attributeLists = []
                        , _generalEntities = []
                        , _parameterEntities =
                            [ ParameterEntity "std"
                                [ ValueText "standard SGML" ]
                            , ParameterEntity "signature"
                                [ ValueText " "
                                , ValueReference
                                    ( CharRef '\8212' )
                                , ValueText " "
                                , ValueReference
                                    ( EntityRef "author" )
                                , ValueText "."
                                ]
                            , ParameterEntity "question"
                                [ ValueText "Why couldn"
                                , ValueReference
                                    ( CharRef '\8217' )
                                , ValueText "t I publish my books directly in "
                                , ValueParameterEntityRef
                                    ( ParameterEntityRef "std" )
                                , ValueText "?"
                                ]
                            , ParameterEntity "author"
                                [ ValueText "William Shakespeare" ]
                            ]
                        , _notations = []
                        , _instructions = []
                        }
                    )
                )
            }
        )
    , TokenTextContent "
      "
    ]