let boardFM fen =
let bM = boardM fen in
let board = create_matrix 8 8 ('-','-') in
for i=0 to 7 do
for j=0 to 7 do
board.(i).(j) <- (Char.lowercase bM.(i).(j) ,match bM.(i).(j) with
|'r'|'n'|'b'|'q'|'k'|'p'->'b'
|'-' ->'-'
|_->'w')
done
done;board