van emde boas tree in haskell -- purely functional implementation