1{-# LANGUAGE DeriveGeneric #-} 2 3data UserTree a = Node a (UserTree a) (UserTree a) | Leaf 4 deriving Generic 5