Fun with recrusive hoctrees in haskell