anchor.diff:  
       let private redraw snakeColor foodColor =
           clearScreen ()
  -        Console.ForegroundColor <- snakeColor
  -        drawSnake snake
  -        Console.ForegroundColor <- foodColor
  -        drawFood food
  -        Console.ForegroundColor <- minesColor
  -        drawMines mines
  -
  -    let private createSquare bounds occupied = 
  +        drawGameStatus gameStatusColor gameBounds level snake.Length
  +        drawSnake snakeColor snake
  +        drawFood foodColor food 
  +        drawMines minesColor mines
  +
  +    let private createSquare occupied = 
           let rnd = new Random ()
  -        let _, { x = maxX; y = maxY } = bounds
  +        let { x = minX; y = minY }, { x = maxX; y = maxY } = gameBounds
           let rec makeOne () =
               let square = 
  -                { x = rnd.Next(maxX)
  -                  y = rnd.Next(maxY) }
  +                { x = rnd.Next(minX, maxX)
  +                  y = rnd.Next(minY, maxY) }
               let isOccupied = 
                   occupied 
                   |> List.exists ((=) square)
  
positive.code:     let mutable private mines = []
      let mutable private food = []
      let mutable private level = 1
  
      let private aliveSnakeColor = ConsoleColor.DarkBlue
      let private deadSnakeColor = ConsoleColor.DarkRed
      let private foodColor = ConsoleColor.DarkGreen
  
negative.code: 
                  if isEnd then
                      redraw deadSnakeColor foodColor
                      Console.SetCursorPosition(startPosition.x, startPosition.y)
                      Console.ForegroundColor <- deadSnakeColor
                      printf "GAME OVER! Press any key to exit..."
                      Console.ReadKey true |> ignore
                      gameInProgress <- false
                  else
                      redraw aliveSnakeColor foodColor
                      if (snake.Length / level) > 10 then 
                          level <- level + 1
                          mines <- (createSquare (snake@food))::mines
                      return! gameLoop ()
              }
  
          foodLoop () |> Async.StartImmediate
          gameLoop () |> Async.StartImmediate
          gameInProgress <- true
  
          while gameInProgress do
              let key = Console.ReadKey(true).Key
              direction <-
                  match key with 
  