Haskell quad tree experiments