open Global

let make src =
  if (Random.float 100.0) < msg_proba then 
    let msg = ref [] in
    let dest = Random.int nb_nodes in
    let len = (Random.int msg_len) + 1 in
    for i = 1 to len do
      msg := dest::!msg
    done;
    !msg
  else
    []