$r=497851*2**3;$r.=76523*5**2;$r.=4801*2**4;$r.=7753*29*43;
$r.=15222657971*3;$r.=254215755597*3;for($i=0;$i<48;$i+=2){
$k=substr$r,$i,2;print chr($k+unpack("C","#"))}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.