progres(tab)
Func

	Local n,i,k,ret,a,b
	colDim(tab)->n

	For k,0,n-1,1
		For i,n-1,k+1,-1
			tab[2,i+1]-tab[2,i]->tab[2,i+1]
		EndFor
	EndFor

	tab[2,1]->ret
	1->a

	For i,1,n-1,1
		1->b
		a*i->a
		For k,0,i-1,1
			b*(x-tab[1,k+1])->b
		EndFor

		tab[2,i+1]*b/a->tab[2,i+1]
		ret+tab[2,i+1]->ret
	EndFor

	Return ret
EndFunc

EndFunc