anchor.diff:    | SuccessfulParse of DateTime
     | FailedParse of string
   
  -type StaticShifts =
  -  {
  -    Labels : string seq
  -    StaticApply : DateTransform
  -    Priority : int
  -  }
  -
  -type RelativeShift =
  -  {
  -    Apply : DateTransform
  -    Labels : string seq
  -  }
  -
  -type AbsoluteShift =
  -  {
  -    Apply:int -> DateTransform
  -    Labels : string seq
  -  }
  -
  -// New
   module Types =
     type SpecificDate =
       | Today
  
positive.code:   let absoluteP par =
      pint32 .>> spaces .>>. datePartsP .>>. absoluteShiftP par |>> fun((x,y),z) -> Absolute(x,y,z)
  
  
    let fallbackP =
        many1CharsTill
          (noneOf " \n\t")
  
negative.code:     | DayShift of DayOfWeek
      | PeriodShift of DateParts
    type AbsoluteShift =
      | Before of Shift
      | After of Shift
      | Ago
    and Shift =
      | Date of SpecificDate
      | Weekday of DayOfWeek
      | Relative of RelativeOffset * RelativeShift
      | Absolute of int * DateParts * AbsoluteShift
  
  module NewParsers =
    open Types
  