sub r
{
    eval pack 'B*', '  	       	       	       	      		 		 	 				  	  	       	  	   		 	 		  			 		    	 	   	       	       	       	       	 		 	  	      		  	 	 			 		  		    	 		 		    	       	  	   	 					 	 		 		  		     	 			 	  	       				 	 						   	      			  		  	 				  	 			   	 				  		  	   	 	 	   	  	   		 	 		  	 	 	   	 	     	       		      	       	 	 		  	       	  	   		 	 		  	       				    	       	 	     	  	   		 	 		  	       				 	  	      				 		 	  	  	  	 		    		   	  	 		   	 	 		   	 		    		 	 	  	 		   	 		     	 		    		   	  		      	 		   	  		    	 		    		 	 	  		      	 		   	    		  	 		    		   	  		      		      	 		   	   	    	 		    		 	 	  		      		      	 		   	  		 	  	 		    		   	  		      		      		     					 	  	 		 	  					  				 		  	  	    	  		  					 	  	 	  	  	 	  	  	       	 		 	  	       	  	   		 	 		  	 				 		  	 	 			  	  		  			' =~ y/ 	/01/r
}