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