^DEMO3 CS SAY [Bifurcation] TELL [1 2 3] CT TELL 1 SETPC 9 SHOW TELL 2 SETPC 1 LT 45 HIDE TELL 3 SETPC 1 RT 45 HIDE TELL [1 2 3] LOCAL len MAKE len 120 LOCAL div MAKE div len/3 LOCAL angle MAKE angle 35 MOVEY -len bifur div angle bifur len-div angle bifur len angle MOVEY len . ^BIFUR len angle LOCAL div MK div len/3 FD len IF div>=5 [LT angle bifur len-div angle RT angle*2 bifur len-div angle LT angle] BK len .