/**  XAnum **/
/*A: G I Watson, A J Peakall*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: November 87 */
/*K: A, Apow, Amult, Adiv */
/*B:  */
/*: Simplify expressions involving A numbers. This would not be necessary
	if numbers wern't so badly buggered up in the first place*/

Pow[$x _= (Numbp[$x] & 0 > $x),$n _= Evenp[$n]] :: (-$x)^$n;
Pow[$x _= (Numbp[$x] & 0 > $x),$n _= Oddp[$n]] :: -(-$x)^$n;

Apow[A[$m,$e],$n] :: $m^$n 10^($e $n);
Amult[A[$m1,$e1],A[$m2,$e2]] :: ($m1 $m2) 10^($e1 + $e2);
Adiv[A[$m1,$e1],A[$m2,$e2]]  :: ($m1/$m2) 10^($e1 - $e2);

