blocksToDefinitions' defAcc acc (b:blks) =
  blocksToDefinitions' [] (b : (DefinitionList (reverse defAcc)) : acc) blks
blocksToDefinitions' defAcc acc (b:blks) =
  blocksToDefinitions' [] (b : (DefinitionList (reverse defAcc)) : acc) blks
blocksToDefinitions' defAcc acc (b:blks) =
  blocksToDefinitions' [] (b : (DefinitionList (reverse defAcc)) : acc) blks