}


internal
fun interpret(program: Program.Plugins): PluginsBlockInterpretation {
    val blockString = program.fragment.blockString
    return when (val r = pluginsBlockParser(blockString)) {
        is ParserResult.Failure -> PluginsBlockInterpretation.Dynamic(r.reason)
        is ParserResult.Success -> PluginsBlockInterpretation.Static(
            r.result.let { (specs, spec) ->

    fun optimize(program: Program.Plugins): ApplyPluginRequests? =
        when (val interpretation = interpret(program)) {
            is PluginsBlockInterpretation.Static -> {
                ApplyPluginRequests(interpretation.plugins, program)
            }

            is PluginsBlockInterpretation.Dynamic -> {
                logUnoptimized(program, interpretation)
                null
            }
        }

    private

            equalTo(
                PluginsBlockInterpretation.Static(specs.asList())
            )
        )
    }

    private
    fun assertDynamicInterpretationOf(pluginsBlock: String, reason: String) {
        assertThat(
            interpret(Program.Plugins(fragment("plugins", pluginsBlock))),
            equalTo(
                PluginsBlockInterpretation.Dynamic(reason)
            )
        )