Genero 的 recursive 測試

main
define i integer
define ans integer

let i =10
let ans = rf(i)
display 'ans=',ans
end main



function rf(p1)
define p1 integer
if p1=1 then
   return 1
end if
return p1+rf(p1-1)
end function