anchor.diff:  let getGroups (axis) =
     foldi (fun index acc elem -> 
       match elem with
  -    | CellResult.Empty -> match List.length acc.CurrentGroup with
  +    | White -> match List.length acc.CurrentGroup with
                               | 0 -> acc
                               | _ -> {acc with FinishedGroups = acc.CurrentGroup :: acc.FinishedGroups; CurrentGroup = []}
       | _ -> {acc with CurrentGroup = index :: acc.CurrentGroup}
  
positive.code:     | true -> Pass
      | false -> Fail
      
    | _ -> Unknown
  
  let printResultGrid (grid) (rowTests : int list list) (columnTests : int list list) =
    let maxY = (Array2D.length1 grid) - 1
  
negative.code: let addRandomGuess grid =
    let x = rnd.Next(0, 25)
    let y = rnd.Next(0, 25)
    let z = if rnd.Next(0, 2) = 0 then Black else White
    Array2D.mapi (fun i j v -> if i = x && j = y then z else v) grid
      
  [<EntryPoint>]
  