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