               /** Cursor controlled combination of terms **/

/*K: cursor; Cb; combine; pointer; at */
/*A: John Gottschalk */
/*S: University of Western Australia */
/*D: November 1985 */

/*: Lcb[$expr]
	is equivalent to Cb[$expr,{$1}] where $1 is the part of $expr
	extracted by pointing to $expr using the cursor. The projector
	L is used for the cursor control. */
Lcb[$expr] :: (Ap[$expr,L[$expr][1]]; Ap[Cb[$expr,{$1/Nc[$1]}],{%%}])

/*E:
SMP 1.5.0

#I[1]::  <XLcb

#I[2]::  e : -1/15((anti^2*(14u12 + -5(u12*Pi)) + sym^2*(14u12 + -5(u12*Pi)))\
	  /Pi)

	       2			2
	 -(anti  (14u12 - 5u12 Pi) + sym  (14u12 - 5u12 Pi))
#O[2]:   ---------------------------------------------------
				15Pi

#I[3]::  Lcb[%]

      2 		       2
-(anti  (14u12 - 5u12 Pi) + sym  (14u12 - 5u12 Pi))
---------------------------------------------------
		       15Pi
   /* the cursor was put over the "-" in 14u12 - 5u12 Pi */
				 2      2
	 -(14u12 - 5u12 Pi) (anti  + sym )
#O[3]:   ---------------------------------
		       15Pi
*/
