<xsl:function name="funcs:generate-uuid">
<xsl:variable name="date" select="string(funcs:millisecond())"></xsl:variable>
  <xsl:variable name="i"><xsl:value-of select="funcs:last5digit($date)"></xsl:value-of></xsl:variable>
  <xsl:variable name="big1"><xsl:call-template name="reverse-string"><xsl:with-param name="s" select="translate(concat($i,$i,$i),'124567890','0987654321')"></xsl:with-param></xsl:call-template></xsl:variable>
  <xsl:variable name="big2"><xsl:value-of select="concat($i,$i,$i)"></xsl:value-of></xsl:variable>
  <xsl:variable name="hex1" select="funcs:int-to-hex(number($big1))"></xsl:variable>
  <xsl:variable name="hex2" select="funcs:int-to-hex(number($big2))"></xsl:variable>
  <xsl:variable name="out"><xsl:value-of select="substring($hex1,1,8)"></xsl:value-of>-<xsl:value-of select="substring($hex1,9,4)"></xsl:value-of>-<xsl:value-of select="substring($hex1,1,4)"></xsl:value-of>-<xsl:value-of select="substring($hex2,5,12)"></xsl:value-of></xsl:variable>
  <xsl:sequence select="$out"/>
</xsl:function>

<xsl:function name="funcs:int-to-hex" as="xs:string">
  <xsl:param name="in"/>
  <xsl:sequence
    select="if ($in = 0)
            then '0'
            else
              concat(if ($in &gt; 16)
                     then funcs:int-to-hex($in idiv 16)
                     else '',
                     substring('0123456789abcdef',
                               ($in mod 16) + 1, 1))"/>
</xsl:function>

<xsl:function name="funcs:millisecond">
  <xsl:sequence select="(current-dateTime() - xs:dateTime('1970-01-01T00:00:00')) div xs:dayTimeDuration('PT1S') * 1000"/>
</xsl:function>

<xsl:function name="funcs:last5digit">
  <xsl:param name="in"/>
  <xsl:variable name="i" select="substring(string($in),string-length(string($in)) - 7,7)"></xsl:variable>
  <xsl:sequence select="$i"/>
</xsl:function>

	
<xsl:template name="reverse-string">
  <xsl:param name="s" select="''" />
  <xsl:variable name="l" select="string-length($s)" />
  <xsl:value-of select="substring($s, $l, 1)" />
  <xsl:if test="$l &gt; 0">
    <xsl:call-template name="reverse-string">
      <xsl:with-param name="s" select="substring($s, 1, $l - 1)" />
    </xsl:call-template>
  </xsl:if>
</xsl:template>