mem[5]=1 --> mem[6] := mem[4]
             mem[5] := 2;

mem[6] mod 1000 < 6 --> mem[5]:=1
                        eat;

mem[mem[3] + 10] mod 6 <= 3 --> right;

mem[8] mod 6 >= 3 --> left;

ahead[1] = 0 --> forward;

{ahead[1] != 1 and
 ahead[1] != 2} and
ahead[1] != 0-1 --> attack;

ahead[1] > 0 --> tag[1];

mem[4] > mem[3] * 100 and
mem[3] < (10 + mem[7])
    --> grow;

mem[4] > 1000 --> mem[7] := mem[7] + mem[5]
                  bud;
