flatten == Data.Foldable.toList
a / \ => [a,b,c] b c
flatten (Node 1 [Node 2 [], Node 3 []]) == [1,2,3]
main = simpleHTTP nullConf $ flatten $ do return "flatten me."
xs == flatten (collectCoincident xs)