anchor.diff:            .AddYears(years)
             .AddDays(float(days + 1))
             .AddHours(float(hours))
  -      HiddenDate(date)
  -    else TrueNumber(value)
  +      Some(date)
  +    else None
   
     let (|OpenGroup|String|Uint|Int|Float|Bool|) inp =
       match inp with
  
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:       | (false, _) -> id.ToString()
        | (true, x) -> x
  
    /// 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
  