\ tree
variable crotch
60 crotch !
: tree ( n --)
dup 6 < if drop exit then
dup fwd
angle @
crotch @ 2/ turn
over 3 4 */ ( n a 3n/4)
dup recurse
crotch @ negate turn
recurse angle ! negate fwd ;
: t crotch ! 
turtle 80. goto 90 turn 48 tree
key drop ;
28 t 45 t 60 t 75 t 85 t 90 t 178 t 180 t