$C=F,open F,$0;<F>=~m[[l]#];$_=$';sFfor(g;for($j=255;$c=chr$j--,s$c\$$Cg;){$C++}eval#="a";sub I{(,,)=@_;my(,)=2015+-*64;if(not=[]){=26;if(<26){=1;use integer;=*+>>3;=*-*+>>4;+=I(,,+1)if(abs<32&&abs<[+31])}[]=[4030-]=}==26?-1:}F0..31){[$_]=++;=(32-$_)/32;[$_]=[63-$_]=32*sin atan2 sqrt 1-*,}[0]=$",[26]='*';F;;){=128*cos;=128*sin++;F31..62){=$_;F-[]..[]){I$_,-31,0}}F0..4096){print!$_?"\e[;H":$_%64?$,:$/,[[$_]];[$_]=0}}
