anchor.diff:      /// Takes a Result and maps it with fSuccess if it is a Success otherwise it maps it with fFailure.
       let inline either fSuccess fFailure trialResult = 
           match trialResult with
  -        | Ok(x, msgs) -> fSuccess (x, msgs)
  +        | Okay(x, msgs) -> fSuccess (x, msgs)
           | Fail(msgs) -> fFailure (msgs)
   
       /// If the given result is a Success the wrapped value will be returned. 
  
positive.code:     [<Extension>]
      static member FailedWith(this:Result<'TSuccess, 'TMessage>) = 
          match this with
          | Ok(v,msgs) -> failwithf "Result was a success: %A - %s" v (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))
          | Fail(msgs) -> msgs
  
      /// Returns the result or fails if the result was an error.
      [<Extension>]
      static member SucceededWith(this:Result<'TSuccess, 'TMessage>) : 'TSuccess = 
          match this with
          | Ok(v,msgs) -> v
          | Fail(msgs) -> failwithf "Result was an error: %s" (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))
negative.code: 
  open System
  
  /// Represents the result of a computation.
  type Result<'TSuccess, 'TMessage> = 
      /// Represents the result of a successful computation.
      | Okay of 'TSuccess * 'TMessage list
      /// Represents the result of a failed computation.
      | Fail of 'TMessage list
  
  