A simple BK-Tree implementation in Haskell