%El paradigma de software lógico se basa en la lógica matemática. 
%En lugar de una sucesión de instrucciones, contiene un conjunto de principios que se pueden entender 
%como una recopilación de hechos y suposiciones

fibonacci(0,0).
fibonacci(1,1).
fibonacci(N,R):-N>1,
    A is N-1, B is N-2,
    fibonacci(A,T1), fibonacci(B,T2),
    R is T1+T2.
:- initialization(main).
main :-
  fib_n(10).
  
fib_n(N) :-
  write('El fibonacci de '), write(N),write(' es '),
  fibonacci(N,R),
  write(R).