Recursive of Genero 4GL

main

   display a1(10)

end main
function a1(i)
define i integer
  if i=1 then
     return 1
  end if
  let i=i+a1(i-1)
  return i
end function