如何在haskell中列出树中所有可能的单词

-- 定义树的数据结构
data Tree a = Leaf | Node a [Tree a] deriving Show

-- 列出树中所有可能的单词
listAllWords :: Tree Char -> [String]
listAllWords Leaf = []  -- 空树返回空列表
listAllWords (Node c children) = do
  -- 对于每个子树，递归调用 listAllWords 函数获取所有可能的单词
  childWords <- listAllWordsFromChildren children
  -- 将当前节点的字符与子树中的单词进行组合
  return (c : childWords)
  where
    listAllWordsFromChildren [] = [[]]  -- 如果没有子树，返回空列表的单元素列表（用于组合时添加当前节点字符）
    listAllWordsFromChildren (x:xs) = do
      -- 递归调用 listAllWords 函数获取当前子树可能的单词
      subWords <- listAllWords x
      -- 递归调用 listAllWordsFromChildren 函数获取剩余子树可能的单词
      remainWords <- listAllWordsFromChildren xs
      -- 将当前子树的单词与剩余子树的单词进行组合
      subWords : remainWords

tree = Node 'a' [Node 'b' [Leaf, Node 'c' [Leaf]], Node 'd' [Leaf]]
words = listAllWords tree
print words  -- 输出：["abc","ad"]

    a
   / \
  b   d
   \
    c