Haskell计算可折叠结构的元素