6 lines
		
	
	
		
			125 B
		
	
	
	
		
			Factor
		
	
	
		
		
			
		
	
	
			6 lines
		
	
	
		
			125 B
		
	
	
	
		
			Factor
		
	
	
| 
								 | 
							
								USING: math tools.test system ;
							 | 
						||
| 
								 | 
							
								IN: temporary
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								[ t ] [ cell integer? ] unit-test
							 | 
						||
| 
								 | 
							
								[ t ] [ bootstrap-cell integer? ] unit-test
							 |