-e ' perl
@a=(LfjtbfnqobfzjIou,dt,
$b="Lsbsz Hscjvt); Wmbm"
y/b-z/a-z/ =~ = ;$b $c ;
". " Tif wj" hbsfu @a ."
pg b ."sufvt qpsnfnhbss"
=~y/b-y/a-z/; ":\n";$c .
";for($i=0; pinrt"\n\n$c
$i $i++) { =~ $a[i$] <@a;
y/b-y/a-z/;if($[q$a$e]ia
$i$[a]." [-1]){inrpt"and
;}lsee{ "; pinrt"$$i]a[,
}irnp}t"\n\t\t--$b\n\n";
'