my $M4;
my $M4_compteur;