Implemented binary tree in haskell.