To branch :LENGTH :ANGLE
IF :LENGTH < 5 [STOP]
Lt :ANGLE Fd :LENGTH
BRANCH :LENGTH / 2 :ANGLE
Bk :LENGTH Rt :ANGLE * 2 Fd :LENGTH
BRANCH :LENGTH / 2 :ANGLE
Bk :LENGTH Lt :ANGLE
End

