English
D TREE :NUM :AR
IF [:NUM > 0]
FD 50
LT :AR
E TREE [:NUM - 1] :AR
RT [:AR * 2]
E TREE [:NUM - 1] :AR
LT [:AR]
BK 50
END
END
SC 0.5
M 0 200
PEN DOWN
PEN ROUND
PENW 5
SET :AR 0
REPEAT 30
CS
E TREE 8 :AR
W 0.2
SET :AR [:AR + 1]
END
M 0 -150