13 lines
		
	
	
		
			129 B
		
	
	
	
		
			Factor
		
	
	
		
		
			
		
	
	
			13 lines
		
	
	
		
			129 B
		
	
	
	
		
			Factor
		
	
	
| 
								 | 
							
								USING: eval kernel math tools.test ;
							 | 
						||
| 
								 | 
							
								IN: literate
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								{ 2 3 t } [
							 | 
						||
| 
								 | 
							
								<LITERATE
							 | 
						||
| 
								 | 
							
								1
							 | 
						||
| 
								 | 
							
								> 2
							 | 
						||
| 
								 | 
							
								>   3
							 | 
						||
| 
								 | 
							
								blah
							 | 
						||
| 
								 | 
							
								>     2dup 1 - =
							 | 
						||
| 
								 | 
							
								LITERATE>
							 | 
						||
| 
								 | 
							
								] unit-test
							 |