%fun( +X, +I, +N, -Y )
fun(X,N,N,1).
fun(X,I,N,Y):-
	I1 is I+1,
	I<N,
	fun(X,I1,N,Y1),
	Y is Y1*(I+X).
	


%function( +X, +N, -Y)
function( X, N, Y ):-
	fun(X,3,N,Y1),
	Y is Y1*X/((1+X)*(1+X)).
				


%main( +X, +Step, +N, [List] )
main( X, H, N, [Y|L] ):-
	X<1.1,
	function(X,N,Y),
	X1 is X+H,
	main(X1,H,N,L).
main( 1.1, _ , _ , []).