bteetr
acsii
palin
grey
bakrwdacs
ddaa
sirtghat
mrose
idenx
 
ocr
potd
qotd
acsii
eoglog
 

perl -e '
@a=(Ltjobozfbud,fjnfqtI,
Hscjvt); $b="Lbssz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsfbu wj"
."svuft pg b qfhnnssbps"
. ":\n";$c =~y/b-y/a-z/;
pnirt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $ia[$] =~
y/b-y/a-z/;if($$ea$q]i[a
[-1]){pinrt"and $i[a$]."
;}esle{ pnrit"$$a[i], ";
}}rpnit"\n\t\t--$b\n\n";
'