Warning, /education/kturtle/scripts/tree.turtle is written in an unsupported language. File is not indexed. 

0001 kturtle-script-v1.0
0002 @(learn) tree $s@(,) $l {
0003   @(if) $s > 0 {
0004                 @(penwidth) $l/5
0005                 @(pencolor) 50@(,) 200-$l*2@(,) 50
0006     @(forward) $l
0007     @(turnleft) 60
0008     tree $s-1@(,) 0.7*$l
0009                 @(turnright) 120
0010     tree $s-1@(,) 0.7*$l
0011                 @(turnleft) 240
0012     @(forward) $l
0013                 @(turnleft) 180
0014   }
0015 }
0016 
0017 @(reset)
0018 @(spritehide)
0019 @(backward) 100
0020 @(canvascolor) 160@(,) 180@(,) 250
0021 tree 10@(,) 100