anchor.diff:              if count < 0 then
                   invalidArg "count" "Cannot take a negative number of elements."
               elif count = 0 then
  -                CellEmpty
  +                Empty
               else
                   match getCell list with
  -                | CellCons (hd, tl) ->
  +                | Cons (hd, tl) ->
                       consc hd (take (count - 1) tl)
  -                | CellEmpty ->
  +                | Empty ->
                       invalidArg "count" "not enough items in the list"
   
       let rec private skipc n (list : LazyList<'T>) =
  
positive.code:     // Active pattern for deconstructing lazy lists.
      let (|Cons|Nil|) (list : LazyList<'T>) =
          match getCell list with
          | CellCons (hd, tl) ->
              Cons (hd, tl)
          | CellEmpty ->
              Nil
  
negative.code: //
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module LazyList =
      /// Curried form of the Cons constructor.
      let inline private consc value (list : LazyList<'T>) =
          Cons (value, list)
  
      //
      let inline private lzy cellCreator : LazyList<'T> =
  