push_0   
label_0
   
push_0   
dup 
 getc	
	 load			push_0x37   		 			
sub	  	jpz_1
	  	
push_1   	
add	   jp_0
 
 
label_1
   	
push_9   	  	
sub	  	dup 
 jpc_2
		 	 
jp_3
 
 		
label_2
   	 
push_-1  		
mul	  
label_3
   		
putn	
 	end


.