-- The following is for the invisible bullet lists. This is how
-- pandoc-generated ooxml does multiparagraph item lists.
separateBlocks' b acc | liftM trim (getText b) == Just "" =
  (init acc) ++ [(last acc) ++ [b]]
separateBlocks' b acc | liftM trim (getText b) == Just "" =
  (init acc) ++ [(last acc) ++ [b]]
separateBlocks' b acc | liftM trim (getText b) == Just "" =
  (init acc) ++ [(last acc) ++ [b]]