*R *V0 J=% I=I+% *V2 J I *V0 %=IABS(J)