tree = trunk >*> br1 >*> br2
trunk = penUp >*> right (pi/2) >*> forward 350 >*> left pi >*> penDown >*> forward 90
br1 = times 6 $ parallel [
  right 0.3 >*> forward 55
  , left 0.35 >*> forward 40]
br2 = setColor Green >*> times 2 (parallel [
  right 0.4 >*> forward 25
  , left 0.5 >*> forward 15])