anchor.diff:        nextToken() |> ignore
       values.ToArray()
   
  +  /// Transforms current token into a ParaValue
     and parseValue () =
       match tok with
       | BinaryToken.Uint(x) ->
  
positive.code:     | 0x0001s -> BinaryToken.Equals
      | x -> BinaryToken.Token(lookupId x)
  
    let endGroup = function | BinaryToken.EndGroup -> true | _ -> false
    let ensureEquals =
      function
      | BinaryToken.Equals -> ()
      | x -> failwithf "Expected equals, but got: %s" (x.ToString())
  
    let ensureIdentifier =
      function
      | BinaryToken.String(x) -> x
      | BinaryToken.Token(x) -> x
      | x -> failwithf "Expected identifier, but got %s" (x.ToString())
  
    let nextToken () = tok <- parseToken (stream.ReadInt16()); tok
  
    let rec parseTopObject () =
  
negative.code:     | BinaryToken.OpenGroup -> parseSubgroup()
      | x -> failwithf "Unexpected token %s" (x.ToString())
  
    /// Determines what type of object follows an OpenGroup token -- an array or
    /// object.
    and parseSubgroup () =
      match (nextToken()) with
      | BinaryToken.Int(x) ->
  