anchor.diff:          Assert.AreEqual(lst.[0..5], [1;2;3;4;5;6])
           CheckThrowsIndexOutRangException((fun _ -> lst.[0..6] |> ignore))  
   
  -        Assert.AreEqual(lst.[1..-1], ([]: int list))
  +        Assert.AreEqual(lst.[1..(-1)], ([]: int list))
           Assert.AreEqual(lst.[1..0], ([]: int list))
           Assert.AreEqual(lst.[1..1], [2])
           Assert.AreEqual(lst.[1..2], [2;3])
  
positive.code:         Assert.AreEqual(lst.[3..1], ([]: int list))
          Assert.AreEqual(lst.[4..1], ([]: int list))
  
          Assert.AreEqual(lst.[-3..-4], ([]: int list))
          CheckThrowsIndexOutRangException((fun _ -> lst.[-4..-3] |> ignore))
  
          let empty : obj list = List.empty
          Assert.AreEqual(empty.[*], ([]: obj list))
  
negative.code:         CheckThrowsIndexOutRangException((fun _ -> lst.[7..] |> ignore))        
  
          
          Assert.AreEqual(lst.[..(-1)], ([]: int list))
          Assert.AreEqual(lst.[..0], [1])
          Assert.AreEqual(lst.[..1], [1;2])
          Assert.AreEqual(lst.[..2], [1;2;3])
  