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