anchor.diff:      let rec move (player: IConnectFour) (pitchSoFar:int[,]) =
           let column = player.Move(pitchSoFar)
           match isValidMove column pitchSoFar with
  -        | Valid ->       // x       y                           pitch with modified state
  -                  match won column (getLine column pitchSoFar) (makeMove column pitchSoFar) with
  +        | Valid ->        // x        y                           usualy 4       pitch with modified state
  +                  match won (column, (getLine column pitchSoFar)) howManyinARow (makeMove column pitchSoFar) with
                     | true -> player
                     | _ -> move getNextPlayer pitchSoFar
           | Invalid(txt) -> failwith ("INVALID MOVE: " + txt)
  -    move players.[playerIndex] (Array2D.create 7 6 0)
  +    move players.[playerIndex] startPitch //(Array2D.create 7 6 0)
   
       
positive.code: let makeMove column (pitch: int[,]) = 
      let rec testLoop currentLineIndex=
          match currentLineIndex with
          | i when pitch.[column, currentLineIndex] = 0 -> pitch.[column, i] <- 1 // 1 = yours, 0 = empty, -1 = theirs
                                                           pitch
          | i -> testLoop (i+1)
      testLoop 0
  
  
negative.code:         | _ -> lineLoop (index+1) pitch.[x, index]
      lineLoop 0 999
  
  let game (p1: IConnectFour) (p2: IConnectFour) howManyinARow (startPitch: int[,]) =
      let players = [|p1;p2|]
      let mutable playerIndex = 0
  
  