k=1000 a=5*k b=3*k
:w3=:gd*((:r6+:r7+:r9+:ra+:rb)<a) :w4=:gd*((:r4+:r5+:r8)<b) goto2