testscript fix and update

testscript

@@ -33,8 +33,8 @@ x=1*2*3+4*5*6-7*8
 x=-3**2+1, -(3**2)+1, (-3)**2+1, -3**-2+1, (1+2), (1+2, 1+2)
 # $(x) should be: 10, -8, 10, 1, 3, (1+2, 3)
 
-x=%#X 0x5555&0xfff0|0xaf<<8^0xa00a0>>4+1
-# $(x) should be: 0X5F5B
+x=%#X 0x5555&0xfff0|0xaf<<8^0xa00a0>>4
+# $(x) should be: 0X5F5A
 
 x=7+4*2|32
 # $(x) should be: 47
@@ -77,3 +77,6 @@ x=0?; 1?; 2?; -4?
 
 x=a030b a(030)b a( 030 )b "a"030"b" a(%x 030)b
 # $(x) should be: a030b a24b a24b a24b a18b
+
+x=-2**2 0-2**2 0+-2**2 0--2**2
+# $(x) should be: 4 -4 4 -4