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