and the graphs of the tangent lines to this curve at the points (8,8) and (-8,-8).
> implicitdiff(x^(2/3)+y^(2/3)=8, x, y);

> dy:= ";

> subs(x=8, y=8, dy);
> subs(x=-8, y=-8, dy);
> plots[implicitplot]({(x^2)^(1/3)+(y^2)^(1/3)=8, y-8=(-1)*(x-8), y+8=(-1)*(x+8)}, x=-25..25, y=-25..25);
