anchor.diff:      // Advance reader to the next token
       tok <- stream.ReadInt16()
   
  -    // TODO: first token is a string date
       pairs.Add((firstKey, parseValue()))
       tok <- stream.ReadInt16()
       
  
positive.code:       | (false, _) -> id.ToString()
        | (true, x) -> x
  
    let (|HiddenDate|TrueNumber|) value =
      let (left, hours) = Math.DivRem(int(value), 24)
      let (left, days) = Math.DivRem(left, 365)
      let years = left - 5001
  
negative.code:     | Uint(x) ->
        match x with
        | HiddenDate(date) -> ParaValue.Date(date)
        | num -> ParaValue.Number(float(num))
      | Int(x) -> ParaValue.Number(float(x))
      | Bool(b) -> ParaValue.Bool(b)
      | String(s) -> ParaValue.String(s)
  