flatToBullets :: [Block] -> [Block]
flatToBullets elems = flatToBullets' (-1) elems
flatToBullets :: [Block] -> [Block]
flatToBullets elems = flatToBullets' (-1) elems
flatToBullets elems = flatToBullets' (-1) elems