As in the title, from the test:

    <xsl:variable name="gcd" as="function()"
     select="
     function($x as xs:integer, $y as xs:integer) {
       if ($y eq 0)
       then abs($x)
       else $gcd($y,$x mod $y)
     }"/>