kill(all)$

van=facebook.com/LearningCalculus$

f(n):=(n-1)^3+1;

f(x);

n:create_list(i,i,1,4);

x:maplist(f,n);

x[1]*x[2]*x[3]/18;

x[2]*x[3]*x[4]/18;

for i: 1 thru 4 do
( print(".......", "(",n[i],",",x[i],")") )$