anchor.diff:          let wlA1 = WrappedListA [1..10]
           let testVal = filter ((=)2) wlA1
           Assert.AreEqual (testVal, WrappedListA [2])
  -        Assert.IsInstanceOf (typeof<Option<WrappedListA<int>>>, Some testVal)
  +        Assert.IsInstanceOf<Option<WrappedListA<int>>> (Some testVal)
   
       [<Test>]
       member x.foldAternatives() = 
  
positive.code:     member x.sequenceA_Default_Primitive() = 
          let testVal = sequenceA [|Some 1; Some 2|]
          Assert.AreEqual (Some [|1;2|], testVal)
          Assert.IsInstanceOf (typeof<Option<array<int>>>, testVal)
  
      member x.sequenceA_Specialization() =
          let inline seqSeq (x:_ seq ) = sequenceA x
  
negative.code: [<TestFixture>]
  type Monad() = 
      [<Test>]
      member x.WorkFlow() =       
          let testVal = 
              monad {
                  let! x1 = WrappedListD [1;2]
                  let! x2 = WrappedListD [10;20]
                  return ((+) x1 x2) }
          Assert.IsInstanceOf<WrappedListD<int>>(testVal)
  
  
  
  