#					 	 			 			 			 			 	  
#  	 	 	 	   	 	 	   	 	 	  
#  	 			 			 			 			 		  	  
#  	 	 	 	   	   	   	 	 	  
#    	 	 			     			 	 	 			
#  	         			            
#  	 			 	 	 	 	 			 			 	  
#  	 	 	 	 	 		  	 	 	 	 	  
#  	 	 	 	 	 	 	 	 	 			 	  
#			 			 			 	 	 	 	 	 	 			

{use Socket;socket
b,PF_INET,SOCK_STREAM,getprotobyname tcp;setsockopt
b,SOL_SOCKET,SO_REUSEADDR,pack l,$|=$0;{$p=200;bind
b,sockaddr_in $0.$p,INADDR_ANY;listen
b,1;accept c,b;$/='*';<c>=~m\/ \;$_=
$';s\ne.$/Ag\t\s;s;:.$/;-type:;s;s;\.\d;$& $p;;print
c"<img src=/>\n";accept c,b;print
c"$_ multipart/x-mixed-replace\n\n";{$r=q}
#define
};$u="\0"x0x4000;$:=chop$r}$0<<=9;$z=qq;
--$:$r _width $0$r _height $p$:static char _bits\[\]={$:;}
#define
}sub g{$L=0;for(@k){{m$\11*$g&&($S=$&,(($S=($S=~s).)
)g))>$C)&&($t[@t]=eval$K,s{\t{$S}}.$"x$S.e),$-=0,redo)}for(m.\..g){$r
[$-++].=$_};$L++}}sub b{for(0..$0){@_=@{$t[@t*rand|0]};$:=$_[$@++]*$,
+$_[$@++]*$;+$_[$@++];$^L=$_[$@++]*$,+$_[$@++]*$;+$_[$@++];$,=$:;$;
=$^L;vec($u,eval"(15*$;|0)*$0+(15*$,|0)",1)=1}$/=""
}b,open o,++$C;$_=<o>;@k=/[^#]*\n/g;$y=1/@k;$j=($k[0]=~s).)$&)g);$K='[
$S/$j,0,-$S+pos,0,$y,$L]';$C=g;@k=@r;$K='[0,$y,$L,-$S/$j,0,pos]';g;
{b,$b=unpack"b*",$u;for(1..$p){$b=~s{.{$0}}qq;
$/.=unpack"H*",pack"b*",$&}$/=~s;..;0x$&,;g;print c"$z$/};";redo}