Create rbtree.hs