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