k=1000 a=3*k b=5*k
:w7=:gd*((:l6+:l7+:l9)<a) :w8=:gd*((:l4+:l5+:l8+:la+:lb)<b) goto2