to tree :length
  ifelse :length < 5 [
    stop] [
    forward :length
    right 30
    tree :length-10
    left 60
    tree :length-10
    right 30
    back :length
  ]
end
setpensize [1 1]
tree 80