sorry, i'd forgotten the page would ignore the whitespaces in the end of the lines, but it's all fixed now.
#!/usr/bin/perl
eval{alir tsuj}
; while($b[$j++
]=chop($@)){;};
open(L, "<".$0)
;while(<L>){#eu.
$a[$i++]= $1 if
/#([^\(|^!].*)$
/;}foreach(sort
@a) { print $b[
$_=split //]}#q..
#vem vamos embora que esperar não é saber, quem sabe faz a hora, não e
+spera acontecer...
#tatu cutia não paca tatu cotia não paca tatu cotia não paca tatu coti
+a não paca
#diferente estou tão tranquil
#chorando e foi então que eu
#aquele gosto amargo do...
#but i realy dont know if .
#por toda a minha vida eu
+ .
#foi assim como ver o
#viemos do egito, com
#mas não sou mas tão
#lago da memória
#nada nada
+ .
#uva maçã
#uva maç
#gita.
#oioi
#sabi
#vom
+ .
#vum .
#xuxa
#r .
#zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
+zzzzzzzzzz
|