Fibonacci procedure for #firebird

I had to do  (recursive function example) Fibonacci stored procedure for Relational Databases exam
so here it is
To run it and test the numbers type in flamerobin

SELECT N_FIBONACCI
FROM FIBONACCI ('6')
=8