$_=q#$_=q^@c=Bcos$_/40.74}(0..512);@s=B2**($_/12)}(0..D);open I,'>'.(C||'/dev/dsp')F[2,2R50],[5,128],[6,2]){ioctl I,0xcQ45Q0+$_->[0],pack('I',$_->[H=1])}@q=@pA70}fafhihfafaifhidh=~/(.)/gO_='deef14faaffhhiimmiihh6f6d16a4dfhRh6f4d30ffa'x2O_.=('31i32p16n16s16p17g'x2).$_.'22i6d4l2k2l2k2g14d6i5l5n6l4k6g6d5k30ie2i2k2l2n2p2s2u3w5x6w4u6w6s4n16p4n2s6l4k6g6d4k64i';s/(\d+)(.)/$2x$1/ge;@lA58}/(.)/gOq[5]=39EMMq,@qEMpEp,B$_+3}@pEMMMp;@b=(R,R,15,16)Eb,@bEb,B$_+3}@bEb,R,R,@b,@b,23;@hA70}('fimfhmdimhip'x2)=~/(.)/gEh,B$_+3}@hEh,@hFOt<25e5OtN$m+Pt==769JOn+Pt==864JOqPt%3J;if(!($t%48J)){$gPs[C@b]/4F0..2){$k[$_]Pn&&$s[C@h]}}if(!$q&&$t<24e5){K){$lPs[C@l]OzPs[C@l]}K||!$m){$ePs[$t==768J?32:C@p]FHU;H<18J;HN$w[H]TLH*$eS+64]*L4/1125*H]*3J}}K&&($t/3J%8)=~/[257]/G$bU;H<3J;HN$w[H]TL($b+Pk[H/4Q%3])S]>0?1J:-1J}}if($m&&!($t%96)G0;H<3J;HN$w[3J-H]TLH*H/3JS]*3J}}elsK&&!($t%48)G$bPcU;H<3JObNif($b>Pc){$bUOcUOd=rand(3J-H)/2}$w[H++]+Pd}}}$w[0]TL$t/3QS]>L$t*$gS]?6Q:-6Q;K){$o=L$t/5QS]*80+128OfT($q/=3J)*$z+(.5-$q)*$l+L$t/RS]/25Ob=(HPfS)>$o?(255-H)/(255-$o):H/$oOw[0]+Pb*7JOw[5J]+Pb*4J}print I pack'v*',$v=32768+C@w,$v}^;s/A/=B(ord\$_)-ZB/map{ZC/shiftZS/%DZD/256ZE/;push@ZF/;for(ZG/){for(H=ZH/\$aZJ/e3ZK/if(\$nZL/\$c[ZM/p,@ZN/++){ZO/;\$ZP/=\$ZQ/00ZR/20ZT/+=ZU/=0/g;eval#;s|Z|/g;s/|g;eval