k=1000 a=2*k b=3*k
:w8=:gd*((:l7+:l9)<a) :w7=:gd*((:l3+:l6+:l8)<b) goto2