kill(all)$

van=facebook.com/LearningCalculus$

f(x,y):=(x-1)*(y-1)=6$
g(x,y):=(x^2+x+1)*(y^2+y+1)=1$

s:solve(g(rhs(first(solve(f(x,y),x))),y),y)$

for i: 1 thru 4 do
    print("        root", i, ": ", s[i])$