k=1000 a=2*k b=4*k
:w1=:gd*((:r2+:r5)<a) :w2=:gd*((:r1+:r3+:r4+:r7)<b) goto2