anchor.diff:          Some (api.Play g { Col = x; Row = y })
       | _  -> None
   
  -let renderBoard board =
  +// val renderBoard : board:Board -> string
  +let renderBoard (board:Board) =
       let renderCell x y col = sprintf "<td class='sg-td'><a href='javaScript:void(0);' id='cell-%d-%d'><div class='sg-cell sg-color%d'></div></a></td>" x y col
   
       let makeBoard (board: int list list) = 
  
positive.code:         NumberOfRows:int
          MaxNumberOfColors:int }
  
      type SameGameApi = {
          NewGame: (int -> int) -> GameConfig -> Game option
          Play: Game -> Position -> Game }
  
  module SameGameDomain =
  
negative.code:     | _ -> boardElement.innerText <- "Sorry, an error occurred while rendering the board."
  
  let rnd = new System.Random()
  let colorGtor i = rnd.Next(i) + 1 |> Color |> Stone 
  
  let defaultConfig = 
      // no fable support for System.Int32.Parse
  