k=1000 a=(5+:dg)*k b=4*k :w1=:gd*((:r0+:r2+:r3+:r6+:r7+:ra*:dg)<a)
:w2=:gd*((:r1+:r2+:r4+:r5)<b) goto1