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