<?
xml-stylesheethref="../xsl/default.xsl" type="text/xsl"
?>
-
<
program
>
-
<
o:function
name
="
fib
"
>
<
o:param
name
="
n
"
/>
-
<
o:do
>
-
<
o:choose
>
-
<
o:when
test
="
$n <= 1
"
>
<
o:return
select
="
1
"
/>
</
o:when
>
-
<
o:otherwise
>
<
o:return
select
="
fib($n - 1) + fib($n - 2)
"
/>
</
o:otherwise
>
</
o:choose
>
</
o:do
>
</
o:function
>
<
o:variable
name
="
i
"
select
="
1
"
/>
-
<
o:while
test
="
$i < 10
"
>
-
<
fib
>
-
<
index
>
<
o:eval
select
="
$i
"
/>
</
index
>
-
<
value
>
<
o:eval
select
="
fib($i)
"
/>
</
value
>
</
fib
>
<
o:variable
name
="
i
"
select
="
$i+1
"
/>
</
o:while
>
</
program
>