prolog.поднесение числа к степени (х-2)

[SeRhy]

у меня стоит задача разработать алгоритм и программу с использованием рекурсии вичесления значения функции:
система:
F(x)=3, при х=2
F(x)=(F(x-1))в степени (х-2), при х>2

я питался стелать таким образом

PHP код:

predicates
 func(integer,integer)
 step(integer,integer,integer)
clauses
 func(X,Y):-X=2,Y=3.
 func(X,Y):-X>2,X2=X-2,X1=X-1,func(X1,Y1),step(Y1,X2,Y).
 step(X,Y,Z):-X=2,Y=0,Z=1,fail.
 step(X,Y,Z):-Y>0,Y1=Y-1,step(X,Y1,Z1),Z1=Z*X. 


но у меня выводит да или нет, а обчислять функцию в степени не хочет, просьба помочь.
Зарание спасиба.

[Kingdom_Reborn]

predicates
	pow(integer, integer, integer)
	f(integer, integer)
clauses
	pow(_, 0, Z) :- Z = 1, !.
	pow(A, N, Z) :- N mod 2 = 0, N1 = N div 2, pow(A, N1, Z1), Z = Z1 * Z1.
	pow(A, N, Z) :- N mod 2 <> 0, N1 = N - 1, pow(A, N1, Z1), Z = Z1 * A.
	
	f(2, Y) :- Y = 3, !.
	f(X, Y) :- X > 2, X1 = X - 1, f(X1, Y1), N = X - 2, pow(Y1, N, Y), !.
goal
	f(4, Z),
	write(Z).

[fat-lip]

кто вас учил оформлять?