program fibonaci_test
	implicit none

	print *, fibonaci(6)
contains
	recursive function fibonaci(number) result(fibonaci_number)
		integer, intent(in) :: number
		integer :: fibonaci_number

		if (number <= 2) then
			fibonaci_number = 1
		else
			fibonaci_number = fibonaci(number - 1) + fibonaci(number - 2)
		end if
		print *, "result:", fibonaci_number
	end function
end program