Fibonacci em prolog