+ collectInBlock :: BlockElement -> [BlockElement]
+ collectInBlock hd@(Heading _ _)
+ = [hd]
+ collectInBlock (Div _ xs)
+ = concat $ map collectInBlock $ catMaybes (map castToBlock xs)
+ collectInBlock (BlockCmd (BlockCommand _ _ xs))
+ = concat $ map collectInBlock xs
+ collectInBlock _
+ = []