blocksToBullets :: [Block] -> [Block]
blocksToBullets blks =
  map singleItemHeaderToHeader $
  bottomUp removeListDivs $
  flatToBullets $ (handleListParagraphs blks)
blocksToBullets :: [Block] -> [Block]
blocksToBullets blks =
  map singleItemHeaderToHeader $
  bottomUp removeListDivs $
  flatToBullets $ (handleListParagraphs blks)
blocksToBullets blks =
  map singleItemHeaderToHeader $
  bottomUp removeListDivs $
  flatToBullets $ (handleListParagraphs blks)