TO LITTLE_TREE :LENGTH IF :LENGTH < 5 [STOP] [] RIGHT 45 FORWARD :LENGTH LITTLE_TREE :LENGTH * 0.75 BACK :LENGTH LEFT 90 FORWARD :LENGTH LITTLE_TREE :LENGTH * 0.75 BACK :LENGTH RIGHT 45 END TO START_UP SETBG 6 TREE 60 SETBG 1 END TO TREE :LENGTH FULLSCREEN HOME PENUP BACK :LENGTH PENDOWN HIDETURTLE SETPENCOLOR 1 LITTLE_TREE :LENGTH TEXTSCREEN END