'Animal Minimalis with a poison gene and a special identifier ' Gene 1 Food Finder cond *.eye5 0 > *.refeye *.myeye != start *.refveldx .dx store *.refvelup 30 add .up store stop ' Gene 2 Eat Food cond *.eye5 50 > *.refeye *.myeye != start -1 .shoot store *.refvelup .up store stop ' Gene 3 Avoiding Family cond *.eye5 0 = *.refeye *.myeye = or start 314 rnd .aimdx store stop ' Gene 4 Reproduce cond *.nrg 6000 > start 50 .repro store stop cond *.body 400 > start 100 .fdbody store cond *.nrg 5000 > *.poison 5000 <= start 100 .mkpoison store .fdbody .ploc store 99 .pval store stop start 16 .out1 store 16 .tout10 store stop