start
10 .mkchlr store
stop
cond
*.nrg 1000 >
start
314 rnd .aimsx store
-2 .shoot store
100 .shootval store
stop
cond
*.totalmyspecies 3 <
start
50 .repro 1 rnd rnd rnd mult store
stop