external get_bigarray :    unit -> (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array2.t = "get_c_array";;

let affich tab =
  for i = 0 to Bigarray.Array2.dim1 tab - 1 do
    for j = 0 to Bigarray.Array2.dim2 tab - 1 do
	print_int mat.{i,j}
    done;
  done;

let m = get_bigarray in 
	affich m;