<?
xml-stylesheethref="../xsl/default.xsl" type="text/xsl"
?>
-
<
o:program
>
-
<
o:procedure
name
="
ex:fib
"
>
-
<
o:do
>
<
o:variable
name
="
low
"
select
="
1
"
/>
<
o:variable
name
="
high
"
select
="
1
"
/>
-
<
o:while
test
="
string($low) != 'Infinity'
"
>
-
<
fib
>
<
o:eval
select
="
$low
"
/>
</
fib
>
<
o:variable
name
="
tmp
"
select
="
$high
"
/>
<
o:variable
name
="
high
"
select
="
$high + $low
"
/>
<
o:variable
name
="
low
"
select
="
$tmp
"
/>
</
o:while
>
</
o:do
>
</
o:procedure
>
-
<
series
>
<
ex:fib
/>
</
series
>
</
o:program
>