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