i n V i d a t i o n

"i do not want this"

j'ai vu cet envol comme mille défenestrations spontanées
une falaise de verre sur la peau
[au moment de l'en-gouffre palingénésie]
sur les murs jusqu'à pierre
on essuiera nos os

quelqu'un a écrit "géhenne" sur l'alphanumérique
et aujourd'hui une particule paranoïde
boucle probabiliste dans quelque cellule
capitonnée
et me murmure encore

j'aurais bien vu son sang noir remplir les sondes fêlées de l'envers gris cellulose

Extinction (deux sur ~~deux~~ zéro)

fréquence floue
l'oeil glacé
torve les membres lanières
peu à peu
arrachés filets de chair
glissent vermicelles sur l'illusoire
rugosité

puis démembré exister
dans la propension tactile
impossible

la vague se rembobine toujours lucide pellicule horrible

et derrière encore il faut affronter les surfaces
chaque matin qui se recomposent inconscientes
miroirs où les yeux rouges délétères s'enterrent
à ne plus souhaiter que la nuit soit inextinguible
pour les voir se dissoudre difformes danser sur leurs cendres
au matin alors comme issu d'un rêve suave tissu nucléaire

les membres absents pourtant insignifiants
devant ces ravins où l'on s'est précipité pour
dire vivre
pour ainsi
dire

nous existons dans la projection de nous-mêmes dans la distance-vide qui nous sépare du monde
des autres
croyant alors les y retrouver -
ne faudrait-il pas plutôt se résorber en sa source avant de pénétrer consistants cet espace où s'éviscèrent parfois aux lisières d'ombres longues des invideurs hurlés invidés hurleurs jusqu'à survoler l'asymptote solitude scarifiante

jusqu'à être ce qu'ils sont dans toute leur stupeur

Ce serait gacher du temps que de s'inscrire, bredouiller, répéter l'effort une nouvelle fois, bredouiller une trace nulle, alors recommencer, ne laisser qu'une maigre trace dans la pierre, donc recommencer encore une fois, cette fois avec les pieds, laisser une empreinte humide qui s'évapore dans le désert brûlant, alors recommencer une nouvelle fois cette fois une fleur pousse dans le sable, s'inscrire une nouvelle fois la fleur pousse un peu plus, s'inscrire mais cette fois-ci se rater : on tombe sur la fleur ; écrasée. Alors recommencer de plus belle à nouveau, bredouiller à quatre pattes plongé dans le sol bouillant, n'y laisser que des traces de doigts, de peau, n'y laisser que des empreintes humides qui s'évaporent dans l'instant, alors recommencer encore se relever péniblement laisser un pas en enfer que le vent essuie, alors recommencer encore essayer toujours et encore l'incessant effort renouvelé de l'inscription une fleur se met à pousser dans le désert, s'inscrire encore des épines et des feuilles, des pétales éclosent. S'inscrire encore une deuxième pousse plus robuste et plus haute que la première, s'inscrire encore la deuxième fleur se met soudain à manger la première, puis la chute d'un corps tue la deuxième, alors se relever péniblement, s'inscrire encore dans les hôpitaux les commissariats les prisons les actes de naissance les identités les pénitenciers, s'inscrire encore un mince trait au stylo s'inscrire encore un deuxième maigre trait de stylo s'inscrire encore et soudain une main chiffonne le papier une boûche le mâche alors décider de s'inscrire encore et de continuer envers et contre tout s'inscrire encore décider cette fois de creuser la terre d'y faire pousser un chemin, s'inscrire encore poursuivre le chemin les ongles en sang noircis maculés de terre, à creuser forcenés, s'inscrire encore les ongles grattent les pieds avancent, s'inscrire encore avancer de dix mètres dans le désert brûlant on abandonne l'idée des fleurs on préfère le déplacement et la fuite en avant s'inscrire encore mais cette fois-ci dans une fuite en avant s'inscrire encore puis les jambes et le c�ur lâchent, alors s'asseoir s'inscrire encore en laissant dans le sol la forme du corps qui finit en poussières puis ne plus s'inscrire, refuser maintenant de s'inscrire où que ce soit car ce serait gâcher du temps.

Desalgorithm II

les périphériques de ta tornade, les heures centrifuges dans l'assèchement progressif des synapses. tes yeux dans mon cadavre, la petite douleur, même. matin midi (rien à foutre), je ravale mon apnée, bois la tasse, les tympans plein les poumons, rather ripped. la timidité des nuages, sous : les mots sous les ongles comme terre qu'on gratte, pathétique ponte plus loin, les mains dans la fosse à orgueils, glorioles, pets d'egos. là aussi, le jaune diurne blafarde malaise les mêmes façades, les grise, dans l'attente tangente : des réverbères, l'éclat orange ou l'ardeur livide des cristaux - la moitié de ton visage en miroir. l'autre moitié dans la pénombre du désir.

     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 premierPassage {  	my $ligne;
 	my $compteur = 0;
 	my $poeme = undef;
 	my $nbMots;
 	my $lengthCumul;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		my @Ligne = split(/\s+/,$ligne);
     			if($poeme) { 				$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   			} 
 			$poeme = $1;
 
 			$compteur++;
  			$Recueil{$poeme}{"nombre_lignes"} = 0;
 			$nbMots = 0;
 			$lengthCumul = 0;
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) { 			next;
 		}  		else { 			$nbMots += $nbMotsLigne;
 		} 
  		$Recueil{$poeme}{"nombre_lignes"}++;
 
  		foreach my $mot (@Ligne) { 
  			if(exists($Symboles{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				$nbMotsLigne--;
 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  			if(!exists($Mots{$mot})) { 				$Mots{$mot} = 1;
 			} else { 				$Mots{$mot}++;
 			} 
  			$lengthCumul += length($mot);
 
 		} 
 	}   	$Recueil{$poeme}{"longueur_mot_moyenne"} = $lengthCumul / $nbMots;
   
 	close fREC;
 
  	my $freqMax = 0;
 	my $motMax;
 	while((my $mot,my $freq) = each(%Mots)) { 		if($freq > $freqMax) { 			$motMax = $mot;
 			$freqMax = $freq;
 		} 	}   
 }

 use strict;
 use Getopt::Long;
 use List::Util qw( max );
  my %Symboles = ("'"=> 0, 				"-"=> 0, 				"_"=> 0, 				"'"=> 0, 				"\""=> 0, 				"\\"=> 0, 				"/"=> 0,  				"|"=> 0, 				"«"=> 0, 				"»"=> 0, 				"�"=> 0, 				","=> 0, 				";
"=> 0, 				"."=> 0, 				"`"=> 0, 				":"=> 0, 				"~"=> 0, 				"{"=> 0, 				"}"=> 0, 				"["=> 0, 				"]"=> 0, 				"("=> 0, 				")"=> 0, 				"+"=> 0, 				"="=> 0, 				"<"=> 0, 				">"=> 0, 				"*"=> 0, 				"�"=> 0, 				"�"=> 0, 				"?"=> 0, 				"%"=> 0, 				"\$"=> 0, 				"@"=> 0, 				"�"=> 0, 				"^"=> 0, 				"�"=> 0, 				"�"=> 0, 				"0"=> 0, 				"9"=> 0, 				"8"=> 0, 				"7"=> 0, 				"6"=> 0, 				"5"=> 0, 				"4"=> 0, 				"3"=> 0, 				"2"=> 0, 				"1"=> 0, 				);
 my %Voyelles = ("a"=> 0, 				"à"=> 0, 				"â"=> 0, 				"ä"=> 0, 				"�"=> 0, 				"e"=> 0, 				"è"=> 0, 				"é"=> 0, 				"ê"=> 0, 				"ë"=> 0, 				"i"=> 0, 				"î"=> 0, 				"ï"=> 0, 				"�"=> 0, 				"�"=> 0, 				"o"=> 0, 				"ô"=> 0, 				"ö"=> 0, 				"�"=> 0, 				"�"=> 0, 				"u"=> 0, 				"û"=> 0, 				"ü"=> 0, 				"ù"=> 0, 				"�"=> 0, 				"y"=> 0, 				"A"=> 0, 				"E"=> 0, 				"I"=> 0, 				"O"=> 0, 				"U"=> 0, 				"Y"=> 0, 				);
  my %Consonnes = ("b"=> 0, 				"c"=> 0, 				"ç"=> 0, 				"d"=> 0, 				"f"=> 0, 				"g"=> 0, 				"h"=> 0, 				"j"=> 0, 				"k"=> 0, 				"l"=> 0, 				"m"=> 0, 				"n"=> 0, 				"p"=> 0, 				"q"=> 0, 				"r"=> 0, 				"s"=> 0, 				"t"=> 0, 				"v"=> 0, 				"w"=> 0, 				"x"=> 0, 				"z"=> 0, 				"B"=> 0, 				"C"=> 0, 				"D"=> 0, 				"F"=> 0, 				"G"=> 0, 				"H"=> 0, 				"J"=> 0, 				"K"=> 0, 				"L"=> 0, 				"M"=> 0, 				"N"=> 0, 				"P"=> 0, 				"Q"=> 0, 				"R"=> 0, 				"S"=> 0, 				"T"=> 0, 				"V"=> 0, 				"W"=> 0, 				"X"=> 0, 				"Z"=> 0, 				);

  my $recueilFile;
  if ( !GetOptions ( 		'recueil=s' =>    \$recueilFile 		) ) { 	print "!!! Erreur dans la lecture de la ligne de commande\n";
 	exit(-1);
 }  if ( !defined $recueilFile ) { 	print "!!! Aucun fichier spécifié (option -recueil) !!\n";
 	exit(-1);
 }  my %Recueil;
 my %Mots;
  print "\nOuverture du recueil...\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
        #    print "\n\nPremier passage...\n\n";
 &premierPassage;
  close fREC;
        #    print "\n\nDeuxième passage...\n\n";
 my %Poetivites;
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $logFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$logFile = $1;
 } else { 	$logFile = $recueilFile;
 } $logFile .= "_log.txt";
 open fLOG, ">$logFile" or die "Impossible de créer le fichier log !\n";
 &deuxiemePassage;
 close fREC;
 close fLOG;

 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);
 			} 		} 	} }

 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;
  }

  sub spectromie {  	my $ligne;
 	my $compteur = 0;
 	my $ligne_poeme = 0;
 	my $poeme = undef;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		$ligne_poeme++;
 		my @Ligne = split(/\s+/,$ligne);
    
 			$poeme = $1;
 			$ligne_poeme = 0;
 			$compteur++;
  			print fSPEC "\tPoeme " . $compteur . " : " . $poeme  . "\n";
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) {  			print fSPEC "\n";
 			next;
 		} 
  		foreach my $mot (@Ligne) { 
  			if(exists($Symboles{$mot})) { 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  			push(@{$SampledRecueil{$poeme}{$ligne_poeme}{"mots"}},$mot);
 			push(@{$SampledRecueil{$poeme}{$ligne_poeme}{"poetivites"}},$Recueil{$poeme}{"Mots"}{$mot});
 
  			print fSPEC $Recueil{$poeme}{"Mots"}{$mot} . "\t";
 
 		} 
  		print fSPEC "\n";
 
 	} 
 }

 use strict;
 use Getopt::Long;
 use List::Util qw( max );
  my %Symboles = ("'"=> 0, 				"-"=> 0, 				"_"=> 0, 				"'"=> 0, 				"\""=> 0, 				"\\"=> 0, 				"/"=> 0,  				"|"=> 0, 				"«"=> 0, 				"»"=> 0, 				"�"=> 0, 				","=> 0, 				";
"=> 0, 				"."=> 0, 				"`"=> 0, 				":"=> 0, 				"~"=> 0, 				"{"=> 0, 				"}"=> 0, 				"["=> 0, 				"]"=> 0, 				"("=> 0, 				")"=> 0, 				"+"=> 0, 				"="=> 0, 				"<"=> 0, 				">"=> 0, 				"*"=> 0, 				"�"=> 0, 				"�"=> 0, 				"?"=> 0, 				"%"=> 0, 				"\$"=> 0, 				"@"=> 0, 				"�"=> 0, 				"^"=> 0, 				"�"=> 0, 				"�"=> 0, 				"0"=> 0, 				"9"=> 0, 				"8"=> 0, 				"7"=> 0, 				"6"=> 0, 				"5"=> 0, 				"4"=> 0, 				"3"=> 0, 				"2"=> 0, 				"1"=> 0, 				);
 my %Voyelles = ("a"=> 0, 				"à"=> 0, 				"â"=> 0, 				"ä"=> 0, 				"�"=> 0, 				"e"=> 0, 				"è"=> 0, 				"é"=> 0, 				"ê"=> 0, 				"ë"=> 0, 				"i"=> 0, 				"î"=> 0, 				"ï"=> 0, 				"�"=> 0, 				"�"=> 0, 				"o"=> 0, 				"ô"=> 0, 				"ö"=> 0, 				"�"=> 0, 				"�"=> 0, 				"u"=> 0, 				"û"=> 0, 				"ü"=> 0, 				"ù"=> 0, 				"�"=> 0, 				"y"=> 0, 				"A"=> 0, 				"E"=> 0, 				"I"=> 0, 				"O"=> 0, 				"U"=> 0, 				"Y"=> 0, 				);
  my %Consonnes = ("b"=> 0, 				"c"=> 0, 				"ç"=> 0, 				"d"=> 0, 				"f"=> 0, 				"g"=> 0, 				"h"=> 0, 				"j"=> 0, 				"k"=> 0, 				"l"=> 0, 				"m"=> 0, 				"n"=> 0, 				"p"=> 0, 				"q"=> 0, 				"r"=> 0, 				"s"=> 0, 				"t"=> 0, 				"v"=> 0, 				"w"=> 0, 				"x"=> 0, 				"z"=> 0, 				"B"=> 0, 				"C"=> 0, 				"D"=> 0, 				"F"=> 0, 				"G"=> 0, 				"H"=> 0, 				"J"=> 0, 				"K"=> 0, 				"L"=> 0, 				"M"=> 0, 				"N"=> 0, 				"P"=> 0, 				"Q"=> 0, 				"R"=> 0, 				"S"=> 0, 				"T"=> 0, 				"V"=> 0, 				"W"=> 0, 				"X"=> 0, 				"Z"=> 0, 				);

  my $recueilFile;
  if ( !GetOptions ( 		'recueil=s' =>    \$recueilFile 		) ) { 	print "!!! Erreur dans la lecture de la ligne de commande\n";
 	exit(-1);
 }  if ( !defined $recueilFile ) { 	print "!!! Aucun fichier spécifié (option -recueil) !!\n";
 	exit(-1);
 }  my %Recueil;
 my %Mots;
  print "\nOuverture du recueil...\n";
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
        #    print "\n\nPremier passage...\n\n";
 &premierPassage;
  close fREC;
        #    print "\n\nDeuxième passage...\n\n";
 my %Poetivites;
 open fREC, "<$recueilFile" or die "Impossible d'ouvrir le recueil !\n";
 my $logFile;
 if($recueilFile =~ m/^(\S+)\.\w+$/) { 	$logFile = $1;
 } else { 	$logFile = $recueilFile;
 } $logFile .= "_log.txt";
 open fLOG, ">$logFile" or die "Impossible de créer le fichier log !\n";
 &deuxiemePassage;
 close fREC;
 close fLOG;

     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 deuxiemePassage {  	my $ligne;
 	my $indLigne;
 	my $lastRatio;
 	my $compteur = 0;
 	my $poeme = undef;
 
 	while(<fREC>) { 
 		chomp;
 		$ligne = $_;
 		my @Ligne = split(/\s+/,$ligne);
    
  			if($poeme) { 				&retournementPoetivites ($poeme);
 			} 
 			$poeme = $1;
 
 			$compteur++;
  			print fLOG "\tPoeme " . $compteur . " : " . $poeme  . "\n";
 			$indLigne = 0;
 			$lastRatio = undef;
 			next;
 		} 
  		my $nbMotsLigne = scalar(@Ligne);
 
  		if($nbMotsLigne == 0) { 			next;
 		} 
 		my $mot;
 
  		$indLigne++;
 
  		for(my $indMot = 1 ;
 $indMot <= $nbMotsLigne ;
 $indMot++) { 
 			$mot = $Ligne[$indMot-1];
 
  			if(exists($Symboles{$mot})) { 				next;
 			} 			if(length($mot) == 1 && !exists($Symboles{$mot}) && !exists($Voyelles{$mot}) && !exists($Consonnes{$mot})) { 				next;
 			} 
  			$mot = &nettoieMot($mot);
 
  
 			my $poetivite = 0;
 
  			$poetivite += max(values(%Mots)) / $Mots{$mot};
 
  			my $nbLettresMot = length($mot);
 			$poetivite *= abs($nbLettresMot - $Recueil{$poeme}{"longueur_mot_moyenne"});
 
  			$poetivite *= 1 + $indLigne / $Recueil{$poeme}{"nombre_lignes"};
 
  			$poetivite *= 1 + $indMot / $nbMotsLigne;
 
  			my @Mot = split(//,$mot);
 			my $nbVoyelles = 0;
 			my $nbConsonnes = 0;
 			my $nbSymboles = 1;
  			foreach my $lettre (@Mot) { 				if (exists $Voyelles{$lettre}) { 					$Voyelles{$lettre}++;
 					$nbVoyelles ++;
 				} 				else { 					if (exists $Consonnes{$lettre}) { 						$Consonnes{$lettre}++;
 						$nbConsonnes ++;
 					} 					else { 						if (exists $Symboles{$lettre}) { 							$Symboles{$lettre}++;
 							$nbSymboles ++;
 						} 						else { 							print "Lettre $lettre non identifiable dans $mot à la ligne $indLigne\n";
 							next;
 						} 					} 				} 			} 			if($mot =~ m/au/) {$nbVoyelles--;
} 
  			my $ratio = $nbVoyelles / $nbLettresMot;
 
 			if($ratio == 0 || $ratio == 1) { 				$poetivite *= $nbLettresMot;
 				if($lastRatio) { 					if(($lastRatio - $ratio) == 0) { 						$poetivite *= $nbLettresMot * $nbLettresMot;
 					} 				} 			} 			else { 				if($ratio < (1/3)) { 					$poetivite *= 1/$ratio;
 					if($lastRatio) { 						if($ratio <= $lastRatio) { 							$poetivite *= $lastRatio / $ratio + 1;
 						} 					} 				} 				else { 					if($ratio > (2/3)) { 						$poetivite *= 1/(1-$ratio);
 						if($lastRatio) { 							if($ratio >= $lastRatio) { 								$poetivite *= $ratio / $lastRatio + 1;
 							} 						} 					} 					else {$poetivite *= 1;
} 				} 			} 			$lastRatio = $ratio;
 
  
 			if($mot =~ /'/) {$nbSymboles--;
} 			$poetivite *= 1 + $nbSymboles;
 
 			if (exists $Symboles{$Mot[0]}) { 				$poetivite *= 1 + $nbSymboles;
 			} 
  			$poetivite = int($poetivite + 0.5);
 			push(@{$Recueil{$poeme}{"Mots"}{$mot}},$poetivite);
 
 		} 
 	} 
  	&retournementPoetivites($poeme);
  }

 sub poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 }

 sub poedilation { 	my $poeme = $_[0];
 	my $degre = $_[1];
 
  	open fPOE, ">" . $poeme . ".txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 	open fPTE, ">" . $poeme . "_pte.txt" or die "Impossible d'ouvrir le fichier $poeme.txt !\n";
 
  	foreach my $ligne (sort( {$a <=> $b} keys(%{$SampledRecueil{$poeme}}))) { 
  		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 0) { 			print fPOE "\n";
 			next;
 		} 
 		if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) == 1) { 			print fPOE ${$SampledRecueil{$poeme}{$ligne}{"mots"}}[0] . "\n";
 			print fPTE ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0] . "\n";
 			next;
 		} 
 		my @finalLine;
 		my @finalPoe;
  		for (my $i = 0 ;
 $i < $degre ;
 $i++) { 
 			my @newLine;
 			my @newPoetivites;
 
  			while(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 1) { 
 				my $motAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}});
  				my $poeAvant = shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}});
  				my $interpol = int(($poeAvant + ${$SampledRecueil{$poeme}{$ligne}{"poetivites"}}[0]) / 2);
 
  				if(exists($Poetivites{$poeme}{$interpol})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol}})))]);
 					push(@newPoetivites,$interpol);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol-1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol-1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol-1}})))]);
 					push(@newPoetivites,$interpol-1);
 					next;
 
 				} 
  				if(exists($Poetivites{$poeme}{$interpol+1})) { 
 					push(@newLine,${$Poetivites{$poeme}{$interpol+1}}[int(rand(scalar(@{$Poetivites{$poeme}{$interpol+1}})))]);
 					push(@newPoetivites,$interpol+1);
 					next;
 
 				} 
  				my @poetivikeys = sort( {$a <=> $b} keys(%{$Poetivites{"recueil"}}));
 				my $avant = $poetivikeys[0];
 				my $apres = 0;
 				foreach my $poetivitest (@poetivikeys) { 
 					next if($poetivitest == $avant);
 					if($poetivitest > $interpol) { 						$apres = $poetivitest;
 						last;
 					} 					$avant = $poetivitest;
 
 				} 
 				if(($interpol - $avant) > ($apres - $interpol)) { 					push(@newLine,${$Poetivites{"recueil"}{$apres}}[int(rand(scalar(@{$Poetivites{"recueil"}{$apres}})))]);
  					push(@newPoetivites,$apres);
 				} else { 					push(@newLine,${$Poetivites{"recueil"}{$avant}}[int(rand(scalar(@{$Poetivites{"recueil"}{$avant}})))]);
  					push(@newPoetivites,$avant);
 				} 
 			} 
 			if(scalar(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}) > 0) { 				push(@newLine,shift(@{$SampledRecueil{$poeme}{$ligne}{"mots"}}));
 				push(@newPoetivites,shift(@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}}));
 			} 			@{$SampledRecueil{$poeme}{$ligne}{"mots"}} = @newLine;
 			@finalLine = @newLine;
 			@{$SampledRecueil{$poeme}{$ligne}{"poetivites"}} = @newPoetivites;
 			@finalPoe = @newPoetivites;
 
 		} 
 		foreach my $motfinal (@finalLine) { 			print fPOE $motfinal . " ";
 		} 		foreach my $poefinale (@finalPoe) { 			print fPTE $poefinale . " ";
 		} 		print fPOE "\n";
 		print fPTE "\n";
 
 	} 
 	print "\n\npoedilation OK ! (voir " . $poeme . ".txt, " . $poeme . "_pte.txt pour le spectre)\n";
 	close fPOE;
 	close fPTE;
 
 }

 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);
 			} 		} 	} }

 function copyAndPasteWithNoise($myImageSrc,$myImageDest,$dimImage,$strength) { 
 	$maxNoise = $dimImage[0]*$dimImage[1];
 	$noise = intval(rand(0.1*$maxNoise,$maxNoise));
 	for($i = 0 ;
 $i < $noise ;
 $i++) { 		$width = rand(1,$strength);
 		$height = rand(1,$strength);
 		$srcX = rand(0,$dimImage[0]-$strength);
 		$srcY = rand(0,$dimImage[1]-$strength);
 
  			$currColor = imagecolorat($myImageSrc,$srcX,$srcY);
 			if(isCloseColor($myImageSrc,$currColor,255,255,255,2)) continue;
 
 		$destX = rand($srcX - $strength,$srcX + $strength);
 		$destY = rand($srcY - $strength,$srcY + $strength);
 
 		$xplusw = $srcX + $width;
 		if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
 		$yplush = $srcY + $height;
 		if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];
 
 		if($destX < 0) $destX = 0;
 		if($destY < 0) $destY = 0;
 
 		$dxplusw = $destX + $width;
 		if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
 		$dyplush = $destY + $height;
 		if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];
 
 		imagecopy($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$width,$height);
 	}  }  function copyAndPasteNormal($myImageSrc,$myImageDest,$dimImage,$strength) { 
 	$maxNoise = rand(intval($strength/2),intval($strength*5));
 	if($maxNoise == 0) $maxNoise = 1;
 	for($i = 0 ;
 $i < $maxNoise ;
 $i++) { 		$width = rand(5,intval($dimImage[0]/5));
 		$height = rand(5,intval($dimImage[1]/5));
 		$srcX = rand(0,$dimImage[0]-5);
 		$srcY = rand(0,$dimImage[1]-5);
 
   		$destWidth = $width;
 		$destHeight = $height;
 		$ratioX = $destWidth/$width;
 		$ratioY = $destHeight/$height;
 		$destX = rand($srcX - intval(5*$ratioX),$srcX + intval(5*$ratioX));
 		$destY = rand($srcY - intval(5*$ratioY),$srcY + intval(5*$ratioY));
 
 		$xplusw = $srcX + $width;
 		if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
 		$yplush = $srcY + $height;
 		if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];
 
 		if($destX < 0) $destX = 0;
 		if($destY < 0) $destY = 0;
 
 		$dxplusw = $destX + $destWidth;
 		if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
 		$dyplush = $destY + $destHeight;
 		if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];
 
 		imagecopy($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$width,$height);
  	}  }   function copyAndPasteDeform($myImageSrc,$myImageDest,$dimImage,$strength) { 
 	$maxNoise = rand(intval($strength/2),intval($strength*5));
 	if($maxNoise == 0) $maxNoise = 1;
 	for($i = 0 ;
 $i < $maxNoise ;
 $i++) { 		$width = rand(5,intval($dimImage[0]/5));
 		$height = rand(5,intval($dimImage[1]/5));
 		$srcX = rand(0,$dimImage[0]-5);
 		$srcY = rand(0,$dimImage[1]-5);
 
 		$destWidth = rand($width,intval(2.5*$width));
 		$destHeight = rand($height,intval(2.5*$height));
   		$ratioX = $destWidth/$width;
 		$ratioY = $destHeight/$height;
 		$destX = rand($srcX - intval(5*$ratioX),$srcX + intval(5*$ratioX));
 		$destY = rand($srcY - intval(5*$ratioY),$srcY + intval(5*$ratioY));
 
 		$xplusw = $srcX + $width;
 		if($xplusw >= $dimImage[0]) $width -= $xplusw - $dimImage[0];
 		$yplush = $srcY + $height;
 		if($yplush >= $dimImage[1]) $height -= $yplush - $dimImage[1];
 
 		if($destX < 0) $destX = 0;
 		if($destY < 0) $destY = 0;
 
 		$dxplusw = $destX + $destWidth;
 		if($dxplusw >= $dimImage[0]) $destX -= $dxplusw - $dimImage[0];
 		$dyplush = $destY + $destHeight;
 		if($dyplush >= $dimImage[1]) $destY -= $dyplush - $dimImage[1];
 
  		imagecopyresized($myImageDest,$myImageSrc,$destX,$destY,$srcX,$srcY,$destWidth,$destHeight,$width,$height);
 	}  }  function check_extension($file,$extensions) {  	$extension = strrchr($file, '.');

 	return in_array($extension, $extensions);
  }

Vouloir signifier ne serait-ce
Qu'une cohésion à laquelle
Vouloir sacrifier des sur-réels faciles

Invoquer un rythme
Y
Immoler l'idée

Entité sioniste en Cisjordanie le soleil se soulève les abords de Seine Paris crache : entité sioniste en Cisjordanie il entame des négociations accélérées pour la formation d'un gouvernement de coalition au bout de sa rue, la rue du Temple. Il négocie une jupe et un croissant. Il longe l'hôpital Hassadah dans les yeux de la fille � parfaitement accessible, déjà ouverte. Il suffit de parler, et c'est un réflexe de survie qu'on cultive � ils sont niais et innocents. Les dons d'organe ne sont qu'un exemple d'une collaboration médicale croissante qui colore un peu d'espoir cette région explosive qu'est Danger. « MINISRAEL : Tout Israël en miniature ! » Israël en carton miniature dans sa tête qui vient colorer la fille de sa vie caramel à passer ses yeux dans les beef-steaks décolorés au sol, giclés des bus. La fille est parisienne et très sensible, elle s'écarte. Elle est le paysage d'Israël revenu d'ailleurs. La terre d'asile d'Israël. �a va chier maintenant, ce qu'il s'était dit en arrivant ici à dix-huit ans.

Je t'aime, est-ce que tu comprends comme je t'aime et comme je te connais depuis toujours. N'écoute pas mes mots, est-ce que tu comprends comme je t'aime, ne m'écoute surtout pas, garde juste ma silhouette et comment je t'ai regardé ; je t'aime déjà. Est-ce que tu le comprends. Est-ce que tu te demandes comme moi ce que ça veut dire, et comment par périodes le chemin finit par se raccourcir, comme on est des erreurs étranglées. Je t'aime, à quoi tu penses. Est-ce que tu penses à moi. Est-ce que tu y penses comme j'y pense, abîmée à l'extérieur, le corps ouvert au vent, engouffré de la ville. Je t'aime est-ce que tu m'as redessinée ou est-ce que tu penses à moi sans avoir mis de mots là-dessus sans m'avoir redessinée, je t'aime, je t'aime déjà est-ce que tu penses à moi et comment tu y penses, est-ce que tu penses que les corps s'interchangent, est-ce que tu penses que nous valons une somme d'argent, de dons et de talents, d'argent, ou est-ce que tu penses qu'il n'y a que des âmes je t'aime est-ce que tu comprends, est-ce que tu penses à moi, comment tu y penses, où es-tu maintenant, est-ce que tu penses à moi, est-ce que tu gardes comme moi le souvenir d'une rupture avant même qu'on se soit connus, est-ce que tu m'a redessinée est-ce que tu as fait cette erreur alors que moi je t'ai toujours pensé avec humilité sans rien garder d'autre que tes paroles ce que tu montrais c'est-à-dire pas grand-chose. Est-ce que tu as eu cette humilité de garder pas grand-chose de moi, comme moi je n'ai rien pris de toi, sans me redessiner, est-ce que tu n'as jamais vu rien d'autre en moi que les bribes que j'ai données et mes yeux c'est-à-dire pas grand-chose, ou est-ce que tu as eu besoin de me réinventer pour mieux masquer ta solitude est-ce que tu m'aimes je t'aime déjà est-ce que tu penses à moi et comment tu y penses et qui tu es parce qu'on ne se connaît pas. Est-ce que tu te satisfais de ça ou est-ce que tous les soirs tu penses à ce truc qu'on a laissé et ta stupidité, ton âme étiolée qui joue, qui est suspecte et qui a peur, est-ce que tu comprends que tu as peur et moi aussi, est-ce que tu comprends que je me suis vue dans tes yeux, est-ce que tu comprends qu'on est pareil, tu le sais n'est-ce-pas, bien sûr que tu le sens. Est-ce que tu y penses, ou est-ce que tu penses juste à mon cul et tes statistiques dans les chemins de ta banque. Est-ce que tu es stupide, est-ce que tu es comme tous les autres, est-ce que tu es surfait, est-ce que tu penses qu'est-ce que tu penses est-ce que tu sais que je brûle, que je brûle. Est-ce que tu sais que je te laisserai jamais venir en moi. Parce que je brûle et que toi t'as même pas la conviction de brûler devant moi. Est-ce que tu penses que je vois pas tout. Est-ce que tu penses que je te juge ? Tu sais c'était rien, je juge personne, sûrement moins que d'autres, alors m'écoute pas, bien sûr que je te juge pas, tu connais le all for one de James Brown, c'est extraordinaire, c'est un patchwork, le James nous refourgue des passages connus, mais il y a des instants à hauts degrés tu sais je t'aime ; mine de rien et t'es qu'un minable tu sais moi qui je suis pour dire ça ? rien tu sais, on s'est vus tellement minables dans nos yeux, tu sais le champagne, tu sais comme je savais rien dire, tu sais comme on se connaît pas est-ce que tu penses à moi tu sais pas, tu sais rien du tout je t'aime. Tu penses qu'on peut se reposer la terre entière les genoux abîmés dans l'inconnu ? T'es prêt à faire ce sacrifice toi ? Ou est-ce que tu penses qu'on est juste bons à baiser toi et moi, à être des misérables caricatures d'êtres humains et d'amour, à se colporter se radiographer dans des lits blancs, est-ce que tu penses qu'on est des photocopies ? tu sais je t'aime point et tu sais je sais rien, je sais juste que j'ai battu et que t'es bon à abattre parce que ça me fait plaisir parce que ça m'évite de penser à toi et à moi-même. Est-ce que t'as battu toi-aussi, est-ce que tu penses à moi, et comment, est-ce que tu me redessines, ou est-ce que tu as su, et qui tu es, et comment tu vis, est-ce que tu pleures des fois. Je t'aime. Tu sais c'est fou comme on s'abîme et qu'on cherche des choses qui nous ressemblent et qui nous rassemblent, tu sais c'est fou comme les gens ont peur ils ont de la bave blanche à la place du c�ur ils aiment épileptiquement tu sais c'est fou comme chacun vibre sans le dire à l'autre et ce qu'on se rate, et comme on se dit et qui tu es toi. Je t'aime. Tu sais, je vais penser toute la nuit comme ça, tu sais, est-ce que tu penses à moi et comment. Et comment tu y penses, c'est surtout ça l'important, comment. Tu sais je suis une malade j'ai des yeux fiévreux tu vivrais pas bien avec moi, tu sais que j'ai les yeux bioniques ? Que je te vois comme tu t'es jamais vu ? que je suis tellement sensible que je vois les gens comme jamais ils se sont vus ? Tu sais que ça fait mal ? Que je peux te faire du mal ? Je te pardonnerai pas, c'est pour ça que je suis partie, t'as dû te retrouver comme un con, je suis désolée c'était pas le but. Je t'ai envoyé bouler au troisième quart d'heure parce que les façades m'insupportent, tu sais j'aime pas le faux et je sais que t'es pas faux, m'écoute pas je voulais te faire peur, je voulais que tu t'en ailles le plus loin possible, très loin, tu sais je t'aime pas, va pas croire, je t'aime pas du tout, non, vraiment pas. T'as tellement peur tu sais, tu vis tellement pas tu sais, tu connais James Brown ? All for one ? Tu penses que des gens peuvent se rassembler et se foutre leurs dix mains sur les poignets en beuglant all for one ? Genre ils s'aiment ? Tu penses ou pas. T'es qui toi d'abord, je me souviens pas de ton nom. Si je sais comment tu t'appelles, je retiens tout, je suis une malade, tu peux pas savoir comme ma vie est une enquête et comme chaque personne ne s'oublie jamais je vis avec des fantômes, tu sais ça toi ? Oui tu sais, t'as vécu en Israël avec des cadavres de bus, t'étais un malade, t'avais ta jeunesse, là ; à baiser partout comme un porc des fois que la vie se finisse trop vite. T'es un chien, tu sais ça ? Tu me regardes comme un chien. Tu me regardes trop, là, tout de suite, tu transpires. Je t'aime, mais faut voir comme je pourrais te détraquer, tu sais j'ai pas l'oxygène facile, tu dois savoir ça toi : on m'a foutu des bombes à chaque clavier, dans les poubelles, et dans mes bus, tu sais. Tu penses à moi ou bien ? T'es qui ? T'es qui derrière tes sourires ? Est-ce que tu penses, est-ce que tu pleures, de quoi, est-ce que les êtres te font mal, est-ce que tu vis encore ou est-ce que t'es une statue, est-ce que tu as roulé comme une pierre ou est-ce que tu es si meurtri que tu pourrais offrir ta vision aux aveugles, qui tu es, est-ce que tu partages, est-ce que tu vis, est-ce que t'es frappadingue ou simplement réfrigéré dans un parking, le parking de ta vie sans rien avoir vécu, est-ce que tu te gares ou est-ce que tu vis à 180, qu'est-ce que tu vis je voudrais savoir, je voudrais tellement savoir tout de toi, je voudrais tellement être là pour toi, te recueillir là et que tu te reposes enfin, j'aimerais tellement que tu t'oublies et que tu oublies mon image et ce qui a pu te paraître de moi, tu sais on s'aime déjà et les humains c'est de la connerie, tu le sais bien toi sous les bombes, tu le sais bien avec tes bus. Tu sais bien tout ça. On sait bien ce qui nous arrive. Tu connais Janis Joplin ? Tu connais quoi ? Tu connais rien. T'es là. Interrogatif. � guetter le meilleur chez les autres. Et c'est pour ça que je suis partie. Tu guettais le meilleur chez moi. Mais c'est tellement facile d'être extraordinaire. Moi je cherche une personne qui renifle mes ordures. Je sais pas si tu peux comprendre.

là où le bruit blanc de l'horizon urbain
d'échardes électriques infirme
l'apocalypse du jour jaune
les arches sculpturent une ténèbre au cordeau
sur lesquelles surgie soupçonnée par l'éclat
l'ultime réverence au métal alumine
en trombe comme des yeux déboulant à l'arrière
des paupières l'unisson veut alors que j'émerge
à la vue de ces barres à peine les fantômes
d'immeubles dont l'haleine tiède d'arrondissements
voisins au contact permafrost nimbe la base
d'une brume que le contre-jour fait diaphane
et ces portes noires et râblées d'un néant de gaze
là où le crépuscule se pulvérise dans l'urgence

Le chien de ta mére, le chien de ta s�ur, le chien de ta gazinière, coupe les aérations je t'asphyxierai, nous deux tranquilles démesurés simulacres pré-individuels, le chien de mon oncle, le chien de tes aboiements, le chien de tes leurres, le chien de tes rires, attendre la queue basse, le chien de l'amer, le chien du labeur, le chien de tes poussières, le chien de mon nom, le chien de tes affolements, le chien de ta peur, le chien de tes prisons, le chien de tes cris, le chien de ton cul, le chien comme un mur, le chien comme un front rentré aux vitres, un enfant rentré vite comme un Nom, à batardiser l'impossible : finir en devenir, ligne droite illimitée, alors le corps devient le monde, passion et fonder la liberté, le chien d'une fenêtre, le chien d'un vide et d'un ciel, d'un cruel, le chien de ta langue, gangue fange, le cri de ma guerre, le chien de ta merde, le chien de ta sueur, le chien mortifère, le chien de tes stups, le chien de tes chatoiements, à rire, l'ouïe, l'insensée, le soleil fruit pourri chaque matin dans tes yeux, moi : à vouloir l'arracher et faire un peu de lumière, le chien de tes souvenirs « ma chérie », le chien de nos connivences, le chien de mes turbulences, agonisons, bâtissons des rivières s'endort le chien, le chien de mon chien, le chien de mon chien, le chien de mon chien, et que reste-t-il à la fin, le chien de mon chien, le chien de ton cul, le chien d'une baise, le chien d'une bouteille, le chien d'un désert, une gueule dont on s'abreuve, déversoir impuissant de lunes détruites et d'aurores persistantes, à cracher du pareil, ou du neuf, du pré-existant. Le chien de ma demeure de ma chienne de mes persiennes, le chien de mon usurpation, de ma trahison, le chien à la truffe branlante et la queue pendante, le chien à la gueule qui boit des trépas des sniff-ah des / ferme ta gueule. Ferme ta gueule. Rentrer la queue basse, feuler la Bleue crasse, miauler ta gueule strass, shit, SHIT.

Battre l'exprimé mon chien, tu me diras.

derrière les globes bourdonne un peu
la réverbération nocive de mes réflexes

pourtant l'impulsion propagée
sous une chaos-porteuse se
perpétue suave
n'est-ce d'ailleurs plus qu'un signal
un algorithme démodulé dans le bourbier libraire
(injectez-moi)
avant que létale ne s'estompe
la voix qu'interlace le vide
dans cette urgence péremptoire