Streamability of rounding effects

Idle relaxation after XML London. Here is some random text generated using the
vocabulary of the XSLT 3.0 spec:

<quote>
This  means cases where a parameter to match certain function are copied node
matches replace all the pattern is no such a valid relative to declarations in
which is used to the expression. That the right lies the instruction may also
be. If the same. If no schema for extract the way in the function. The
functions and result tree. A and others are considered as the context of the p
element is changed to variables in an adverse effect because both operands as
a dynamic. Static. Type. Annotation the component of where the functions
references that a stylesheet then and elements and. CIT is no and then and
fails to then is any even though this is an output definitions and stylesheets
that is not a using its sweep of the types defined in an. EQName that has a as
the and if there are given knowledge of the. An optional as a. In this
specification defines the rules require implementations are described in
static error using see. The usage is. Where the node in memory can however
share the applicable to handle but which the required type is not necessarily.
Rule. Suppose that facilities also. Streamability of rounding effects.
</quote>

Probably makes about as much sense to the average reader as the original...

Here's the code (try it on a document of your choice...). It builds a data
structure holding all pairs of adjacent words and then selects the successor
of each word from these pairs at random.

<xsl:template match="/">
        <xsl:variable name="words"
                      as="xs:string*"
                      select="//text()!tokenize(., '\s+')[matches(.,
'^[a-zA-Z]+$')]"/>
        <xsl:variable name="histogram" as="map(*)">
            <xsl:iterate select="tail($words)">
                <xsl:param name="previous" select="head($words)"/>
                <xsl:param name="histogram" select="map{}"/>
                <xsl:on-completion select="$histogram"/>
                <xsl:variable name="new-entry" select="if
(map:contains($histogram, $previous)) then (map:get($histogram, $previous), .)
else (.)"/>
                <xsl:next-iteration>
                    <xsl:with-param name="previous" select="."/>
                    <xsl:with-param name="histogram"
select="map:put($histogram, $previous, $new-entry)"/>
                </xsl:next-iteration>
            </xsl:iterate>
        </xsl:variable>
        <p>
            <xsl:text>This </xsl:text>
            <xsl:iterate select="1 to 200">
                <xsl:param name="word" select="'This'"/>
                <xsl:variable name="options" select="map:get($histogram,
$word), 'the'"/>
                <xsl:variable name="next"
select="(random-number-generator(.)?permute($options))[1]"/>
                <xsl:value-of select="(if (matches($next, '^[A-Z]')) then '. '
else ' ') || $next"/>
                <xsl:next-iteration>
                    <xsl:with-param name="word" select="$next"/>
                </xsl:next-iteration>
            </xsl:iterate>
            <xsl:text>.</xsl:text>
        </p>
    </xsl:template>