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