Generate and draw a fractal tree.

 Draw the trunk
 At the end of the trunk, split by some angle and draw two branches
 Repeat at the end of each branch until a sufficient level of branching is reached


Related tasks
 Pythagoras Tree


[ $ "turtleduck.qky" loadfile ] now!
 
[ [ 1 1 
    30 times 
       [ tuck + ] 
   swap join ] constant 
   do ]                  is phi  (       --> n/d )
 
[ 2dup 5 1 v< iff 
    2drop done
  2dup 5 1 v/ 
  proper 2drop wide
  2dup walk
  1 5 turn
  2dup phi v/
  2dup recurse
  -2 5 turn
  recurse
  1 5 turn
  -v fly ]               is tree ( n/d -->     )
 
turtle 
-1 4 turn 
-450 1 fly 
500 1 tree