Prototype BurnTree by haskell
Deleted BurnTree by c