Compact tree of Haskell VALENTINE