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