Prolog program of Fibonacci Series......
domains num,ans=integer. predicates fibo(num). clauses fibo(1):-write("1"). fibo(X):- X<5,!, fibo(X1 +1), Ans=X1+X.