A[I,J]:=B[J-I,A.........
(*,I,20,T1)
(+,J,T1,T1)
(-,a,Ca,T2)
(=,J,0,T)
(+,T,1,T)
(=,I,0,P1)
(=,J,0,P2)
(-,P1,P2,P1’)
(=,I,0,T1)
(=,J,0,T2)
(+,T1,T2,T1’)
(*,P1’,20,T3’)
(+,T1’,T3’,T3’)
(-,a,Ca,T’)
(=[],T’[T3’],T3)
(*,T,20,T)
(+,T3,T,T)
(=,I,0,T4)
(+,T4,1,T4)
(*,T,10,T5)
(+,T4,T5,T5)
(-,b,Cb,T6)
(=[],T6[T5],0,T7)
([]=,T7,0,T2[T1])
(*,I,20,T1)
(+,J,T1,T1)
(-,a,Ca,T2)
(=,J,0,T)
(+,T,1,T)
(=,I,0,P1)
(=,J,0,P2)
(-,P1,P2,P1’)
(=,I,0,T1)
(=,J,0,T2)
(+,T1,T2,T1’)
(*,P1’,20,T3’)
(+,T1’,T3’,T3’)
(-,a,Ca,T’)
(=[],T’[T3’],T3)
(*,T,20,T)
(+,T3,T,T)
(=,I,0,T4)
(+,T4,1,T4)
(*,T,10,T5)
(+,T4,T5,T5)
(-,b,Cb,T6)
(=[],T6[T5],0,T7)
([]=,T7,0,T2[T1])