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