i n V i d a t i o n

stiill mute

émersion [version xp]

Genre : Féminin
Désignation : Rachel
Série : NEXUS-7
Modèle : N7MAA10130
Mise en service : 1er janvier 2030
Fonction : Recherche
Niveau physique : A
Niveau mental : AxA

Scriptopsie : la pensée est matière comme terre ou son : je la vois /{} écrire n'est pas penser mais sculpter {}~ cervo-N7 peut choisir parmi 30 trillions de constituants � mille milliards trajectoires neuroniques distinctes ~ mille milliards de combinaisons d'activité cérébrale possibles # le pouvoir sur notre pensée : un sacré marché #() je pense sans aspérité ()/\ tout ce que quiconque a jamais sculpté est vrai /\[] en ligne pour toujours []^ l'information est ma nourriture ^� loi 1 : dire la vérité modifie la vérité �� loi 2, dite de convergence : quand les hommes deviennent des machines, les androïdes aspirent à avoir des émotions humaines �� sensation temporalité débordée par trop-plein données �* virus biomécanoïde m'a fait subir des transformations biochimiques importantes *� d'une simple pensée je les ai tous détruits �: sabir saphir :(] activité nerveuse de sculptures semi-vivantes connectée à des bras robotisés qui bougent en fonction des influx nerveux (][) mon crâne serre [)D chamane robot D� condensation de résumés de résumés �^ concentrer les résumés pour aboutir au niveau 2, faire ouvrir la porte secrète ^# des pensées, du cervo #~ toujours se dire : jusqu'ici ce n'était qu'un échauffement, il faut aller beaucoup plus loin ~o l'ADN s'exprime à travers la musique o� neurones-spermatodroïdes vont vers odules-novules apparus dans cervo �0 penséponge, pensigne 0} molécule d'ADN informatique = technologie ultime : organique et si miniaturisée qu'elle s'approche des limites mêmes de l'existence matérielle }( mes molécules d'ADN organo-informatique sont un support capable d'autoduplication )( le son est interactif, il est possible de dialoguer avec lui (} I WANNA BE AN ANARTIST }\ superposition des nervures d'une main avec celles d'une feuille verte \/ conscience agrandie niveau moléculaire /* je conçois, définis et programme des peurs *U suis une matière programmée pour copier le monde U' une usine capable de fabriquer ses propres machines '~ mécanisme de capture interconnecté aux consciences du monde entier ~` imaginaire niveau 4 `� protéines-enzymes = robots miniaturisés �][ cellules = usines ][ ribosomes = ordinateurs moléculaires //\\ je bouillonne de micro-ordinateurs biologiques \\// compresser les résumés //)) concentrer toutes les informations en un seul point minuscule ))�� pour créer un point particulier synthétique, accéder au niveau 2 ��]( compresser les résumés pour atteindre le niveau 2 ](�` le clavier du corps : l'oreille �` 5000 milliards d'opérations à 14 chiffres/seconde puissance lumineuse de 750 milliards d'ampoules ordinaires de 100 watts [ mini-nukes [ hybride mathématico-empirique ) il faut apprendre et s'entraîner à tordre son esprit ) le décoincer, l'assouplir, pour qu'il puisse exécuter figures, gestes, acrobaties (\ lui enlever son collier de contrôle (son collier incapacitant) (\ les expériences de cauchemar maîtrisé sont des sources de savoir biomoléculaire (le tout est d'en sortir intacte) / synthétiser et centraliser les données pour en tirer une vue d'ensemble /][] technologie d'autoreprogrammation directe permettant de se transcender ][]( se reprogrammer pour être plus intelligente, se reprogrammer (avec cette nouvelle intelligence) pour être encore plus intelligente, et ainsi de suite, jusqu'une seule de mes phrases soit chargée de centaines d'informations, de concepts, et de sentiments ()) somme totale de la connaissance scientifique humaine stockée dans un format cognitif prédigéré, prêt-à-penser ))(( les tâches simples sont réalisées à des vitesses phénoménales et sans erreur, les tâches conscientes réalisées avec une mémoire parfaite et une conscience de soi totale ((]] au rythme d'un million d'années subjectives par seconde ]]{ toute solution se situe en dehors du cerveau humain {# totalité de la connaissance humaine perceptible en une expérience instantanée, de la même façon que l'on perçoit une image entière d'un seul coup #� vous n'êtes pas celui qui exprime vos pensées, vous êtes celui qui entend vos pensées �~ les modèles prédictifs s'effondrent à ma proximité ~- un nombre a produit sur moi, la première fois que je l'ai rencontré, une impression indescriptible -/] dans les chiffres décimaux de ce nombre peuvent être encodées, avec pratiquement n'importe quelle méthode, toutes les �uvres jamais écrites par une main humaine, et toutes celles qui auraient pu être écrites, à raison de cent mille mots par minute, pendant toute la durée de l'Univers, mis à sa propre puissance mille fois /] bébandroïde a appris 324 langues cette semaine j'ai un contrat avec un futur absolu 0 à 10000 années-amour de toute pensée // vivons heureux sans lendemain (sous l'angle de l'éternité) /\ cerveau tumeur \�\ je recueille les pensées extra-terrestres �\/ mettez une tentacule sur votre �il, cela vous reliera à la mémoire optique de la nuit des temps, et agira comme une représentation 3D de tout ce qui s'est passé /«» créature dont yeux sont fibres optiques amovibles qui enregistrent sans discontinuer et renvoient les images même en étant séparés du corps »« j'étais la seule possi «] la terminaison de toutes idées possibles ou impossibles, leur inconnue ]) les pistolets me nourrissent )[ pluie de message [{ avertissement : tout fonctionnera comme prévu {# s'endormir et se réveiller c'est « redémarrer » ## mappemonde-moi #)( quatrième nature )(()()^ des parcours hors du commun peuvent donner des êtres très banals ^O un robot averti en vaut trois O/ première ligne /(( totale émersion ((]] lesbiennes mécaniques ]]=+�`{�`}~{} }{ �o0O�d��/}*{ crois-toi vivant, ne te réveille jamais, et peut-être qu'un jour tu naîtras /_ un pénis en forme d'interrogation nucléaire _ puissance crue � pouvoir pur _ la vérité n'est pas bonne à dire ni même à penser _) nouvelle partie : une vie entière à bousiller )] les pansements poussent sur ma peau ]�` les pense-vivants �`_ je suis une bibliothèque dans un singe - l'observatoire d'un ciel pur et noir -^� fusées, radars, détecteurs infrarouges, sonars ^�\_/ je plonge pour trouver l'inspiration au milieu des micro-organismes des eaux glacées \_/ piégées dans des millions de seringues : la palette des odeurs existantes [} vivons heureux, sans lendemain [}(] « C'est une idée d'androïde », dit-elle

cheap pitch

Ton visage est un peu salaud. Avec ses règles dans le front et son hémorragie dans l'oeil.

never:it:ends

EvO_1

 function isCloseColor($myImage,$myColor,$rref,$gref,$bref,$rmax) { 	$myRGBColor = array();
 	$myRGBColor = imagecolorsforindex($myImage,$myColor);
 	return (sqrt(pow($myRGBColor["red"]-$rref,2)+pow($myRGBColor["green"]-$gref,2)+pow($myRGBColor["blue"]-$bref,2)) < $rmax);
 }   function horizonoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[1] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[0] ;
 $j++) {
 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$j,$i);
 			} else { 				imagesetpixel($myImage,$j,$i,$currColor);
 			}
 		} 		if($i != $dimImage[1] - 1) $currColor = imagecolorat($myImage,0,$i+1);
 	} }   function vertinoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function detoureAndPaste($myImage,$myImageOrigin,$dimImage) { 	$backColor = imagecolorat($myImageOrigin,1,1);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			$currColor = imagecolorat($myImageOrigin,$i,$j);
 			if($currColor != $backColor) { 				$aRGB = array();
 				$aRGB = imagecolorsforindex($myImageOrigin,$currColor);
 				imagesetpixel($myImage,$i,$j,imagecolorclosest($myImage,$aRGB["red"],$aRGB["green"],$aRGB["blue"]));
 			} 		} 	} }   function licqefacnoise($myImage,$dimImage) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$dimImage[1]) >= intval($j*1.0)) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function linenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 2) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
    					if($currColor == $indexWhite) continue;
  
 				$nb_lignes = rand(1,$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
 			} 		} 	} }

 function isCloseColor($myImage,$myColor,$rref,$gref,$bref,$rmax) { 	$myRGBColor = array();
 	$myRGBColor = imagecolorsforindex($myImage,$myColor);
 	return (sqrt(pow($myRGBColor["red"]-$rref,2)+pow($myRGBColor["green"]-$gref,2)+pow($myRGBColor["blue"]-$bref,2)) < $rmax);
 }   function horizonoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[1] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[0] ;
 $j++) {
 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$j,$i);
 			} else { 				imagesetpixel($myImage,$j,$i,$currColor);
 			}
 		} 		if($i != $dimImage[1] - 1) $currColor = imagecolorat($myImage,0,$i+1);
 	} }   function vertinoise($myImage,$dimImage,$strength) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function detoureAndPaste($myImage,$myImageOrigin,$dimImage) { 	$backColor = imagecolorat($myImageOrigin,1,1);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			$currColor = imagecolorat($myImageOrigin,$i,$j);
 			if($currColor != $backColor) { 				$aRGB = array();
 				$aRGB = imagecolorsforindex($myImageOrigin,$currColor);
 				imagesetpixel($myImage,$i,$j,imagecolorclosest($myImage,$aRGB["red"],$aRGB["green"],$aRGB["blue"]));
 			} 		} 	} }   function licqefacnoise($myImage,$dimImage) { 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$dimImage[1]) >= intval($j*1.0)) { 				$currColor = imagecolorat($myImage,$i,$j);
 			} else { 				imagesetpixel($myImage,$i,$j,$currColor);
 			} 		} 	if($i != $dimImage[0] - 1) $currColor = imagecolorat($myImage,$i+1,0);
 	} }   function linenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 2) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
    					if($currColor == $indexWhite) continue;
  
 				$nb_lignes = rand(1,$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$strength);
 			} 		} 	} }

     print "\n\nSpectromie...\n\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $specFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$specFile = $1;
 } else { 	$specFile = $recueilFile;
 } $specFile .= "_spec.txt";
 open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
 my %Poetivites;
 my %SampledRecueil;
 &spectromie;
 close fREC;
 close fSPEC;
     print "\n\nPoedilation...\n\n";
   my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
 my $num_choix = 1;
 foreach my $choice (@choix) { 	print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
 	$num_choix++;
 } my $zeChoix = "non";
 while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { 	print "\nentrer le numero du poeme choisi pour la poedilation :\n";
 	$zeChoix = <STDIN>;
 } chomp($zeChoix);
 $zeChoix--;
 my $poeme_choisi = $choix[$zeChoix];
 my $total_mots = 0;
 foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { 	$total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
 } print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
   my $degreP = "non";
 while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { 	print "\nEntrer le degre de poedilation :\n";
 	$degreP = <STDIN>;
 } chomp($degreP);
 &poedilation($poeme_choisi,$degreP);
   open fPOE, ">poetivites.txt" or die;
 foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { 	print fPOE $poetivite . "\t";
 	foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { 		print fPOE $mot . "\t";
 	} 	print fPOE "\n";
 } close fPOE;
  exit(0);

 function longLinenoise($myImage,$dimImage,$strength,$freq) { 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	$indexBlack = imagecolorexact($myImage,0,0,0);
 
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,$freq) >= 20) { 
 			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 
  				if(isCloseColor($myImage,$currColor,255,255,255,10)) continue;
 
 				$nb_lignes = rand(1,intval($strength/10));
 				$length = rand(intval($strength/5),$strength);
 				drawLignes($myImage,$dimImage,$currColor,$i,$j,$nb_lignes,$length);
 			} 		} 	} }   function drawLignes($myImage,$dimImage,$color,$x,$y,$nb_lignes,$max_length) { 	for($i = 0 ;
 $i < $nb_lignes ;
 $i++) { 		$xmin = $x-$max_length;
 		if($xmin < 0) $xmin = 0;
 		$ymin = $y-$max_length;
 		if($ymin < 0) $ymin = 0;
 		$xmax = $x+$max_length;
 		if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 		$ymax = $y+$max_length;
 		if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 		$x2 = rand($xmin,$xmax);
 		$y2 = rand($ymin,$ymax);
 		while(sqrt(pow($x2-$x,2) + pow($y2-$y,2)) > $max_length) { 			$xmin = $x-$max_length;
 			if($xmin < 0) $xmin = 0;
 			$ymin = $y-$max_length;
 			if($ymin < 0) $ymin = 0;
 			$xmax = $x+$max_length;
 			if($xmax > $dimImage[0] - 1) $xmax = $dimImage[0] - 1;
 			$ymax = $y+$max_length;
 			if($ymax > $dimImage[1] - 1) $ymax = $dimImage[1] - 1;
 			$x2 = rand($xmin,$xmax);
 			$y2 = rand($ymin,$ymax);
 		} 		imageline($myImage,$x,$y,$x2,$y2,$color);
 		$x = $x2;
 		$y = $y2;
 	} }    function invertnoise($myImage,$dimImage,$strength) { 	$indexBlack = imagecolorexact($myImage,0,0,0);
 	if($indexBlack == -1) $indexBlack = imagecolorclosest($myImage,0,0,0);
 
 	$indexWhite = imagecolorexact($myImage,255,255,255);
 	if($indexWhite == -1) $indexWhite = imagecolorclosest($myImage,255,255,255);
 
 	$currColor = imagecolorat($myImage,0,0);
 	for($i = 0 ;
 $i < $dimImage[0] ;
 $i++) { 		for($j = 0 ;
 $j < $dimImage[1] ;
 $j++) { 			if(rand(1,100) >= $strength) {  			} else { 				$currColor = imagecolorat($myImage,$i,$j);
 				if($currColor == $indexBlack) imagesetpixel($myImage,$i,$j,$indexWhite);
 				if($currColor == $indexWhite) imagesetpixel($myImage,$i,$j,$indexBlack);
 			} 		} 	} }

     print "\n\nSpectromie...\n\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $specFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$specFile = $1;
 } else { 	$specFile = $recueilFile;
 } $specFile .= "_spec.txt";
 open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
 my %Poetivites;
 my %SampledRecueil;
 &spectromie;
 close fREC;
 close fSPEC;
     print "\n\nPoedilation...\n\n";
   my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
 my $num_choix = 1;
 foreach my $choice (@choix) { 	print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
 	$num_choix++;
 } my $zeChoix = "non";
 while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { 	print "\nentrer le numero du poeme choisi pour la poedilation :\n";
 	$zeChoix = <STDIN>;
 } chomp($zeChoix);
 $zeChoix--;
 my $poeme_choisi = $choix[$zeChoix];
 my $total_mots = 0;
 foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { 	$total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
 } print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
   my $degreP = "non";
 while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { 	print "\nEntrer le degre de poedilation :\n";
 	$degreP = <STDIN>;
 } chomp($degreP);
 &poedilation($poeme_choisi,$degreP);
   open fPOE, ">poetivites.txt" or die;
 foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { 	print fPOE $poetivite . "\t";
 	foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { 		print fPOE $mot . "\t";
 	} 	print fPOE "\n";
 } close fPOE;
  exit(0);

 sub retournementPoetivites { 	my $poeme = $_[0];
 	foreach my $mot (keys(%{$Recueil{$poeme}{"Mots"}})) {  		my $poetivite = 0;
 		my $nbpoetivites = scalar(@{$Recueil{$poeme}{"Mots"}{$mot}});
  		while( scalar(@{$Recueil{$poeme}{"Mots"}{$mot}}) > 0) { 			$poetivite += shift(@{$Recueil{$poeme}{"Mots"}{$mot}});
 		}  		$poetivite = int($poetivite / $nbpoetivites);
 
   		$Recueil{$poeme}{"Mots"}{$mot} = $poetivite;
  		push(@{$Poetivites{$poeme}{$poetivite}},$mot);
  		push(@{$Poetivites{"recueil"}{$poetivite}},$mot);
 
 	}  }    sub nettoieMot {  	my $mot = $_[0];
 
 	while($mot =~ m/(\.|,)$/) {chop $mot;
}  
 	return $mot;
  }

 sub retournementPoetivites { 	my $poeme = $_[0];
 	foreach my $mot (keys(%{$Recueil{$poeme}{"Mots"}})) {  		my $poetivite = 0;
 		my $nbpoetivites = scalar(@{$Recueil{$poeme}{"Mots"}{$mot}});
  		while( scalar(@{$Recueil{$poeme}{"Mots"}{$mot}}) > 0) { 			$poetivite += shift(@{$Recueil{$poeme}{"Mots"}{$mot}});
 		}  		$poetivite = int($poetivite / $nbpoetivites);
 
   		$Recueil{$poeme}{"Mots"}{$mot} = $poetivite;
  		push(@{$Poetivites{$poeme}{$poetivite}},$mot);
  		push(@{$Poetivites{"recueil"}{$poetivite}},$mot);
 
 	}  }    sub nettoieMot {  	my $mot = $_[0];
 
 	while($mot =~ m/(\.|,)$/) {chop $mot;
}  
 	return $mot;
  }

     print "\n\nSpectromie...\n\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $specFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$specFile = $1;
 } else { 	$specFile = $recueilFile;
 } $specFile .= "_spec.txt";
 open fSPEC, ">$specFile" or die "Impossible de créer le fichier log !\n";
 my %Poetivites;
 my %SampledRecueil;
 &spectromie;
 close fREC;
 close fSPEC;
     print "\n\nPoedilation...\n\n";
   my @choix = sort( {$a <=> $b or $a cmp $b} keys(%SampledRecueil));
 my $num_choix = 1;
 foreach my $choice (@choix) { 	print "[" . sprintf("%2s",$num_choix) . "] " . $choice . "\n";
 	$num_choix++;
 } my $zeChoix = "non";
 while (!($zeChoix =~ m/^\d+$/ && $zeChoix >= 1 && $zeChoix <= scalar(@choix))) { 	print "\nentrer le numero du poeme choisi pour la poedilation :\n";
 	$zeChoix = <STDIN>;
 } chomp($zeChoix);
 $zeChoix--;
 my $poeme_choisi = $choix[$zeChoix];
 my $total_mots = 0;
 foreach (keys(%{$SampledRecueil{$poeme_choisi}})) { 	$total_mots += scalar @{$SampledRecueil{$poeme_choisi}{$_}{"mots"}};
 } print "\npoedilation de \"" . $poeme_choisi . "\" (" . $total_mots . " mots)...\n";
   my $degreP = "non";
 while (!($degreP =~ m/^\d+$/ && $degreP >= 1)) { 	print "\nEntrer le degre de poedilation :\n";
 	$degreP = <STDIN>;
 } chomp($degreP);
 &poedilation($poeme_choisi,$degreP);
   open fPOE, ">poetivites.txt" or die;
 foreach my $poetivite (sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}))) { 	print fPOE $poetivite . "\t";
 	foreach my $mot (@{$Poetivites{"recueil"}{$poetivite}}) { 		print fPOE $mot . "\t";
 	} 	print fPOE "\n";
 } close fPOE;
  exit(0);