fib(N, Result) :- helper(N, Acc, FibNumber), append(Acc, FibNumber, Result).
helper(0, [0], 0).
helper(1, [1], 1).
helper(N, Acc, FibNumber) :- FibN1 is N -1, FibN2 is N -2, helper(FibN1, TempAcc1, Result1), helper(FibN2, TempAcc2, Result2), FibResult is Result1 + Result2, append(TempAcc1, TempAcc2, TempAcc3), append(TempAcc3, [FibResult], Acc).

test_answer :- fib(5, X), writeln(X).