WinLogo: A Simple Fractal Tree

Tree

To Tree :N :1
If :N<1 [stop]
FD :N
LT 30
Tree :N*2/3 :1
RT 60
TREE :n*2/3 :1
LT 30
BK :N
END

You will need to set the parameter N.
Type in Tree "n"
This will give the number of layers of branches the program creates.