
to shu1 cc cd  
make cc cc-1 
make cd cd*0.75 
 
if  cc=1 then [fd cd lt 30 fd cd bk cd rt 30 rt 30 fd cd bk cd lt 30 bk cd] 
else [fd cd lt 30 shu1 cc cd  rt 30 rt 45 shu1 cc cd  lt 45 bk cd] 
end 
 
to gt ;绿色树  不对称的树  ####主程序#######
cs 
setpc 2 
setspeed 100 
shu1 9 100 
end 
