anchor.diff:      /// first character used in the symbol.
       let (^) = (<|)
   
  -    // Bottom value
  -    let undefined<'T> : 'T = raise (NotImplementedException("result was implemented as undefined")) 
  +    /// Bottom value
  +    let undefined<'T> : 'T = raise (NotImplementedException("result was implemented as undefined"))
  +
  +    /// Given a value, apply a function to it, ignore the result, then return the original value.
  +    let inline tee fn x = fn x |> ignore; x
  +
  +    /// Custom operator for `tee`: Given a value, apply a function to it, ignore the result, then return the original value.
  +    let inline (|>!) x fn = tee fn x
   
       let inline toOption x = match x with
                               | true, v -> Some v
  
positive.code:     let (|Single        |_|) = Single.parse
      let (|Double        |_|) = Double.parse
      let (|DateTime      |_|) = DateTime.parse
      let (|DateTimeOffset|_|) = DateTime.parse
  
negative.code: 
      // Active patterns
      let (|Boolean       |_|) = Boolean.parse
      let (|Byte          |_|) = Byte.parse
      let (|SByte         |_|) = SByte.parse
      let (|UInt16        |_|) = UInt16.parse
      let (|Int16         |_|) = Int16.parse
      let (|UInt32        |_|) = UInt32.parse
  