path: root/apps/examples/bas/tests/test07.bas

10 def fna(x)
20   if x=0 then r=1 else r=x*fna(x-1)
30 =r
40 print fna(7)