true
	1024 .out1
	99 .eatval
*myenergy 200 >
	50 .repro
*eyeul 0 > *in1 *out1 = not 0 *focuseye = not and and
	1 .eat
	0 .focuseye
*eyeur 0 > *in1 *out1 = not 1 *focuseye = not and and
	2 .eat
	1 .focuseye
*eyel 0 > *in1 *out1 = not 2 *focuseye = not and and
	3 .eat
	2 .focuseye
*eyer 0 > *in1 *out1 = not 3 *focuseye = not and and
	4 .eat
	3 .focuseye
*eyedl 0 > *in1 *out1 = not 4 *focuseye = not and and
	5 .eat
	4 .focuseye
*eyedr 0 > *in1 *out1 = not 5 *focuseye = not and and
	6 .eat
	5 .focuseye
and and and and and
	6 rand 1 add .move