goto1+:am
:mm=1 goto(2+(:gen>=75))*:am
:ml=1 :clct=1 goto(3+(w++>50))*:am
w=0 :crwl=1 :am=0 goto1