public Parser identificationDivisionBody() {
        if (identificationDivisionBodyParser == null) {
           FutureParser future = scoped("identificationDivisionBody");
           identificationDivisionBodyParser = future;
           future.setParser(
               sequence(
                   plus(
                       choice(
                           callPrototypeIdParagraph(),
                           programPrototypeIdParagraph(),
                           programIdParagraph(),
                           classIdParagrah(),
                           factoryParagraph(),
                           objectParagraph(),
                           methodIdParagraph(),
                           interfaceIdParagraph(),
                           functionIdParagraph(),
                           delegateIdParagraph(),
                           enumIdParagraph(),
                           iteratorIdParagraph(),
                           operatorIdParagraph(),
                           valuetypeIdParagraph(),
                           sequence(
                               token("AUTHOR"),
                               token("."),
                               skipto(
                                   token(".")
                               ),
                               token(".")
                           ),
                           sequence(
                               token("INSTALLATION"),
                               token("."),
                               skipto(
                                   token(".")
                               ),
                               token(".")
                           ),
                           sequence(
                               token("DATE-WRITTEN"),
                               token("."),
                               skipto(
                                   token(".")
                               ),
                               token(".")
                           ),
                           sequence(
                               token("DATE-COMPILED"),
                               token("."),
                               skipto(
                                   token(".")
                               ),
                               token(".")
                           ),
                           sequence(
                               token("SECURITY"),
                               token("."),
                               skipto(
                                   token(".")
                               ),
                               token(".")
                           ),
                           sequence(
                               token("REMARKS"),
                               token("."),
                               skipto(
                                   token(".")
                               ),
                               token(".")
                           )
                       )
                   ),
                   optional(
                       skipto(
                           choice(
                               paragraphStart(),
                               sectionStart(),
                               divisionStart()
                           )
                       )
                   )
               )
           );
        }

        return identificationDivisionBodyParser;
    }