Help:=proc(): print(`GuessPol(L) `):end:

#GuessPol(L,x): inputs a sequence of numbers
#and outputs a polynomial P of x, of degree nops(L)-5
#such that L[i]=P(i), for i=1..nops(L) 

GuessPol:=proc(L,x) local d,P,a,var,eq:
d:=nops(L)-5:

P:=add(a[i]*x^i,i=0..d):

var:={seq(a[i],i=0..d)}:




end: