let vect64 mat = let temp = Array.create 64 0 in
for i=0 to 7 do
  for j=0 to 7 do
temp.(i+j*8)<- mat.(i).(j)
done;done;temp