bsp;---------------------------------------------------------------------------&nbsp;*/
&nbsp;&nbsp;&nbsp;unk:[x,y],
/*&nbsp;---------------------------------------------------------------------------
&nbsp;&nbsp;&nbsp;solves&nbsp;the&nbsp;system
&nbsp;&nbsp;&nbsp;---------------------------------------------------------------------------&nbsp;*/
&nbsp;&nbsp;&nbsp;solve(eqs,unk)&nbsp;&nbsp;&nbsp;
)$

</pre>
The program (which is actually a function with no argument) is called
<tt>critpts</tt>. Each line is 