An implementation of AVL-tree and binary tree in Haskell