anchor.diff:        | (false, _) -> id.ToString()
         | (true, x) -> x
   
  -  let (|HiddenDate|TrueNumber|) value =
  +  /// An integer may be a date. This active pattern attempts to detect such
  +  /// occurrences, though it doesn't gurantee 100% accuracy, as numbers larger
  +  /// than 43,808,760 will be detected as dates.
  +  let (|HiddenDate|_|) value =
       let (left, hours) = Math.DivRem(int(value), 24)
       let (left, days) = Math.DivRem(left, 365)
       let years = left - 5001
  
positive.code:     | Uint(x) ->
        match x with
        | HiddenDate(date) -> ParaValue.Date(date)
        | TrueNumber(num) -> ParaValue.Number(float(num))
      | Int(x) -> ParaValue.Number(float(x))
      | Bool(b) -> ParaValue.Bool(b)
      | String(s) -> ParaValue.String(s)
  
negative.code:     // Advance reader to the next token
      tok <- stream.ReadInt16()
  
      pairs.Add((firstKey, parseValue()))
      tok <- stream.ReadInt16()
      
  