interp(tab)
Func

	Local n,r,i,ret,m
	colDim(tab)->n
	
	For r,1,n,1
		For i,n,r+1,-1
		(tab[2,i]-tab[2,i-1])/(tab[1,i]-tab[1,i-r])->tab[2,i]
		EndFor
	EndFor

	tab[2,1]->ret
	1->m
	
	For r,1,n-1,1
		m*(x-tab[1,r])->m
		ret+tab[2,r+1]*m->ret
	EndFor

	Return ret
EndFunc