let boardM fen =
let bVL = boardVL fen in  
let board = create_matrix 8 8 '-' in
for i=0 to 7 do 
  for j=0 to 7 do
    board.(i).(j) <- nth bVL.(i) j 
                                 done
                                 done;board