k=1000 a=4*k b=3*k
:w3=:gd*((:r5+:r7+:r9+:r0)<a) :w4=:gd*((:r4+:r5+:r8)<b) goto2