cond start *.chlr .rmchlr store 0 .mkchlr store *.shoot 6 mult .shoot store *.thisgene .mkvirus store 1 .vshoot *.eye1 *.eye2 add *.eye3 add *.eye4 add *.eye5 add *.eye6 add *.eye7 add *.eye8 add *.eye9 add sgn *.pain 10 sub sgn 0 floor add mult store stop