Real World Haskell Chapter3 続き

昨日よくわからないと言っていた練習問題の続き.
rightとleftを区別する方法がわからないので,無視.

--Tree2.hs
data Tree a = Node a (Maybe(Tree a)) (Maybe(Tree a))
              deriving (Show)
              
simpleTree  = Just (Node "parent"
                    (Just (Node "left leaf"  Nothing Nothing))
                    (Just (Node "right leaf" Nothing Nothing)))