kill(all)$

van=facebook.com/LearningCalculus$

f(x):=6+6^x-6^(2-2*x);

newtonRaphson(t):=float(subst(t,x,x-f(x)/diff(f(x),x)))$

a:0.416$

for i:1 thru 4 do
(
    a:newtonRaphson(a),
    print("answer a: ", a, "     6 + 6^a: ", 6+6^a)
);