私はhaskellを初めて使用し、クラスショーでTreeaをインスタンス化したいと思います。
  data Tree a = Null
               |Node (Tree a) a (Tree a)
  instance Show (Tree a) where
    show Null = ""
    show Node ((Tree l) (v) (Tree r)) = "|"--I don´t know how i can do this step
ご協力いただきありがとうございます。