let affBoardFM posf =
for i=0 to 7 do
for j=0 to 7 do
if snd (boardFM posf).(i).(j)='b' then print_char (fst (boardFM posf).(i).(j))
else print_char (Char.uppercase(fst (boardFM posf).(i).(j)))
done;
print_newline ()
done