fib(0, 1):-!.
fib(1, 1):-!.
fib(N, W) :- N1 is N-1, fib(N1, W1),
             N2 is N-2, fib(N2, W2),
             W is W1 + W2.