anchor.diff:  [<Test>]
   [<Ignore("Remove to run test")>]
   let ``foldr as id`` () =
  -    Assert.That(foldr (fun item acc -> item :: acc) [] [1 .. big], Is.EqualTo([1 .. big]))
  +    Assert.That(foldr (fun item acc -> item :: acc) [] [1 .. big] = bigList, Is.True)
   
   [<Test>]
   [<Ignore("Remove to run test")>]
   let ``foldr as append`` () =
  -    Assert.That(foldr (fun item acc -> item :: acc) [100 .. big] [1 .. 99], Is.EqualTo([1 .. big]))
  +    Assert.That(foldr (fun item acc -> item :: acc) [100 .. big] [1 .. 99] = bigList, Is.True)
   
   [<Test>]
   [<Ignore("Remove to run test")>]
  
positive.code: [<Test>]
  [<Ignore("Remove to run test")>]
  let ``append of large lists`` () =
      Assert.That(append [1 .. (big / 2)] [1 + big / 2 .. big], Is.EqualTo([1 .. big]))
  
  [<Test>]
  [<Ignore("Remove to run test")>]
  
negative.code: open ListOps
  
  let big = 100000
  let bigList = [1 .. big]
  let odd x = x % 2 = 1
  
  [<Test>]
  