if (Queue.is_empty k) then
      print_endline "is empty";

    Queue.iter (fun x-> print_int x; sommets.(x) <- false) k;