#!/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 espera acontecer...
#tatu cutia não paca tatu cotia não paca tatu cotia não paca tatu cotia 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                                                      .
#zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz