anchor.diff:  
           // Emit the parser functions.
           writer.WriteLine "let engine lexer lexbuf startState = (tables ()).Interpret(lexer, lexbuf, startState)"
  -        writer.WriteLine "let spec lexer lexbuf : Ast.ParserSpec ="
  +        writer.WriteLine "let spec lexer lexbuf : Specification ="
           IndentedTextWriter.indented writer <| fun writer ->
               writer.WriteLine "unbox ((tables ()).Interpret(lexer, lexbuf, 0))"
   
  
positive.code: [<RequireQualifiedAccess>]
  module private FsYacc =
      open System
      open System.CodeDom.Compiler
      open System.Diagnostics
      open Printf
      open Graham.Grammar
  
negative.code:             // Generate the code and write it to the specified file.
              using (File.CreateText fsyaccOptions.OutputPath) <| fun streamWriter ->
                  use indentedTextWriter =
                      // Set the indentation to the standard F# indent (4 spaces).
                      new IndentedTextWriter (streamWriter, "    ")
  
                  FsYacc.emit (processedSpec, parserTable) (fsyaccOptions, indentedTextWriter)
  
  