k=1000 a=4*k
:w9=:gd*((:c2+:c4+:c5+:c7)<a) :w0=:gd*((:c1+:c3+:c4+:c6)<a) goto2