% Fibonacci calculation in Strand
fib(0, 1).
fib(1, 1).
fib(N, F) :-
    N > 1,
    N1 is N - 1,
    N2 is N - 2,
    fib(N1, F1) & fib(N2, F2),
    F is F1 + F2.

% Main execution
main :- fib(10, Result), write(Result), nl.