let dataIn k  = let temp = Array.create_matrix 8 8 0 in
   temp.(fst (List.nth edges k)).(snd (List.nth edges k)) <- 1;temp