public Parser programIdParagraph() {
        if (programIdParagraphParser == null) {
           FutureParser future = scoped("programIdParagraph");
           programIdParagraphParser = future;
           future.setParser(
               sequence(
                   token("PROGRAM-ID"),
                   optional(
                       token(".")
                   ),
                   programName(),
                   optional(
                       sequence(
                           token("AS"),
                           literal()
                       )
                   ),
                   optional(
                       sequence(
                           optional(
                               token("IS")
                           ),
                           choice(
                               sequence(
                                   token("INITIAL"),
                                   optional(
                                       token("COMMON")
                                   )
                               ),
                               sequence(
                                   token("COMMON"),
                                   optional(
                                       token("INITIAL")
                                   )
                               ),
                               token("RECURSIVE")
                           ),
                           optional(
                               token("PROGRAM")
                           )
                       )
                   ),
                   optional(
                       sequence(
                           skipto(
                               token(".")
                           ),
                           token(".")
                       )
                   )
               )
           );
        }

        return programIdParagraphParser;
    }