anchor.diff:  
   [<AutoOpen>]
   module Graphics =
  -    let drawSquare char square =
  +    let drawSquare char color square =
  +        Console.ForegroundColor <- color
           Console.SetCursorPosition (square.x, square.y)
           printf char
   
       let clearScreen () =
           Console.Clear ()
   
  -    let drawMany char squares =
  -        squares |> List.iter (drawSquare char)
  +    let drawMany char color squares =
  +        squares |> List.iter (drawSquare char color)
   
       let drawSnake = drawMany "*"
       let drawFood = drawMany "o"
       let drawMines = drawMany "#"
  +
  +    let drawGameStatus color bounds level score =
  +        Console.ForegroundColor <- color
  +        let { x = _; y = minY }, { x = maxX; y = _ } = bounds
  +        if minY >= 1 then
  +            Console.SetCursorPosition(0, 0)
  +            printf "Score: %05i\tLevel: %05i" score level
  +            if minY >= 2 then
  +                for k = 0 to maxX do
  +                    Console.SetCursorPosition(k, minY - 1)
  +                    printf "_"
   
   module SnakeGame =
   
  
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:         let rec foodLoop () =
              async {
                  do! Async.Sleep (5000 / level)
                  food <- (createSquare (snake@mines))::food
                  return! foodLoop ()
              }
  
  