anchor.diff:          testCase "e" (fun () ->
               SideEffects.reset ()
               let e = sequence (Seq.initInfinite toEithers |> Seq.take 20 |> Seq.toList)
  -            SideEffects.are expectedEffects20
  +            SideEffects.are expectedEffects
               SideEffects.reset ()
               let _e = traverse toEithers [1..20]
  -            //SideEffects.are expectedEffects20
  +            //SideEffects.are expectedEffects
               SideEffects.reset ()
               Assert.AreEqual (Either<string list,list<int>>.Left ["This is a failure"], e)
               ())
  
positive.code:         testCase "f" (fun () ->
              SideEffects.reset ()
              let f = sequence (Seq.initInfinite toEithers |> Seq.take 20 |> Seq.toArray)
              SideEffects.are expectedEffects20
              SideEffects.reset ()
              let _f = traverse toEithers [|1..20|]
              //SideEffects.are expectedEffects20
              SideEffects.reset ()
              Assert.AreEqual (Either<string list,array<int>>.Left ["This is a failure"], f)
              ())
  
negative.code:         """f(x) <*> Right 3"""
          """f(x) <*> Left ["This is a failure"]"""
      ]
  
  let traversable = testList "Traversable" [
      #if !FABLE_COMPILER
      testCase "sequence_Default_Primitive" (fun () -> 
  