anchor.diff:      | KW_ROWS of string
       | KW_SELECT of string
       | KW_SELF of string
  +    | KW_SET of string
       | KW_SMALLINT of string
       | KW_SMALLMONEY of string
  +    | KW_SYSNAME of string
       | KW_SYSTEM of string
       | KW_TABLESAMPLE of string
       | KW_THEN of string
  
positive.code:     | KW_NULL of string
      | KW_NUMERIC of string
      | KW_NVARCHAR of string
      | KW_OR of string
      | KW_OUT of string
      | KW_OUTPUT of string
      | KW_OWNER of string
      | KW_PROC of string
      | KW_PROCEDURE of string
      | KW_READONLY of string
      | KW_REAL of string
      | KW_RECOMPILE of string
  
negative.code:         let x = small_zeroReduces.[cur + k] &&& 65535
          zeroReduces.[i].[j] <- lists_zeroReduces.[x]
      cur <- cur + length
  let private small_acc = [4]
  let private accStates = Array.zeroCreate 538
  for i = 0 to 537 do
          accStates.[i] <- List.exists ((=) i) small_acc
  let eofIndex = 207
  let private parserSource = new ParserSource<Token> (gotos, reduces, zeroReduces, accStates, rules, rulesStart, leftSide, startRule, eofIndex, tokenToNumber, acceptEmptyInput)
  let buildAst : (seq<Token> -> ParseResult<Token>) =
      buildAst<Token> parserSource
  