kill(all)$

van=facebook.com/LearningCalculus$

fpprintprec:4 $

f(x):=x^2$

g(x):=2^x$

/* Find intersections of f(x) and g(x) */
e : f(x) = g(x)$
r : find_root(e, x, -1, 0)$

/* Display intersections as [x, y] pairs ordered left to right */
points : [r, f(r)];