integer a(4)
do1;read*,a
do2;print'(9(i0x))',a;goto(1)sum(a)+1
2 a=abs(cshift(a,1)-a)
1 print*;end