k=1000 a=2*k b=4*k
:w6=:gd*((:l2+:l5)<a) :w5=:gd*((:l1+:l3+:l4+:l7)<b) goto2