A Haskell implementation of crit-bit trees. - View it on GitHub