let affBoardFM2 pos  =
 for i=0 to 7 do
  for j=0 to 7 do
if (i,j)= x then Printf.printf "(%c,%c)* " (fst (pos (i,j))) (snd (pos (i,j))) else 
if (i,j)= y then Printf.printf "(%c,%c)* " (fst (pos (i,j))) (snd (pos (i,j))) else
 Printf.printf "(%c,%c) " (fst (pos (i,j))) (snd (pos (i,j)))
  done;
print_newline ()
 done