begin
new
 ? inident list-dvoupatr
 ! sat 50
new
 ? type grass
 ? subtype 4
 ! add 25 4080f0
 ! hue -10
new
 ? type grass
 ? subtype 1
 ! add 10 00ffff
new
 ? type grass
 ? subtype 7
 ! add 10 00000ff
end