run:-h(0).
h(100).
h(N):-N1 is N+1,write(N),nl,h(N1).


%factorial
fact(0,1).
fact(X,F):-Y is X-1,fact(Y,Fact),F is Fact*X.


% power
pow(_,0,1).
pow(M,N,P):-Z is N-1,pow(M,Z,K),P is M*K.

%fibonachi
fibo(1,1).
fibo(2,1).
fibo(X,F):-Z is X-1, Y is X-2,fibo(Z, Q), fibo(Y, K), F is Q+K.

%bmm
bmm(X,0,X).
bmm(X,Y,B):- K is X mod Y, bmm(Y,K,B).

% sum even
even(X):-X_ is X mod 2,X_=0.

se(2,2).
se(X,S):-not(even(X)),X_ is X-1,se(X_,S).
se(X,S):-even(X),X_ is X-2,se(X_,Q),S is Q+X.