anchor.diff:  [<TestFixture>]
   type Monad() = 
       [<Test>]
  -    member x.WorkFlow() =     
  +    member x.WorkFlow() =       
           let testVal = 
               monad {
                   let! x1 = WrappedListD [1;2]
                   let! x2 = WrappedListD [10;20]
                   return ((+) x1 x2) }
  -        Assert.IsInstanceOf (typeof<WrappedListD<int>>, testVal)
  +        Assert.IsInstanceOf<WrappedListD<int>>(testVal)
   
   
   
  
positive.code: 
          let testVal = [1;2] |+| [10;20] |+| [100;200] |+  2
          Assert.AreEqual ([113; 213; 123; 223; 114; 214; 124; 224], testVal)
          Assert.IsInstanceOf (typeof<Option<list<int>>>, Some testVal)
  
  
      [<Test>]
  
negative.code: 
          let a = seqSeq (seq [[1];[3]])
          Assert.AreEqual ([seq [1; 3]], a)
          Assert.IsInstanceOf<list<seq<int>>> a
          let b = seqArr ( [|[1];[3]|])
          Assert.AreEqual ([[|1; 3|]], b)
          Assert.IsInstanceOf<list<array<int>>> b
          let c = seqLst ( [ [1];[3] ])
          Assert.AreEqual ([[1; 3]], c)
          Assert.IsInstanceOf<list<list<int>>> c
  
          
  type ZipList<'s> = ZipList of 's seq with
  