6 children :: Lazy <<Proc>> [Node]
12 print "genNode \(name)"
15 children = lazy [genNode (name + "A"), genNode (name + "B")]
18 nameOf Node { name } = name
19 childrenOf Node { children } = force children
21 main = for (childrenOf root) $ \c ->
22 for (childrenOf c) $ \c2 ->
23 print "visit \(nameOf c2)"