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