kill(all)$

van=facebook.com/Learningcalculus$

f(x):=sqrt(x+3-4*sqrt(x-1))+sqrt(x+8-6*sqrt(x-1))=1;

for x: -10000 thru 10000 do
    if f(x) then print (x);

for x: -10 thru 10 do
    if abs(bfloat(lhs(f(x))-1)) < 0.0001 then print (x);