kill(all)$

van=facebook.com/LearningCalculus$

y/(x-x^5) = x/(y-y^5);

y= x*(x-x^5)/(y-y^5);

y(x):=k*(x-x^5);

x(y):= k*(y-y^5);

L:solve(x(y),y);

M: create_list(rhs(L[i]),i,1,length(L));

N:maplist(y,[%i,-1,-%i,1,0]);

for i: 1 thru length(L) do
(print(".......","(",M[i],",",N[i],")"))$