let init_board (l,c) v =  init_list l (init_list c v);;

let get_cell (x,y) board = nth y (nth x (board));;

let put_cell v (x,y) b =
  put_list (put_list v y (nth x b)) x b ;;