| 
					
				 | 
			
			
				@@ -1,7 +1,10 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-tuple-map := { func => {tup => tuple-fold.<{xs => {x => concat.<xs, <func.x>>}}, <>, tup>}}; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(* these should probably be part of the stdlib eventually *) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+tuple-map := {func => {tup => 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  tuple-fold.<{xs => {x => concat.<xs, <func.x>>}}, <>, tup> 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+}}; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+flatten := {t => tuple-fold.<{ x => { xs => x xs } }, "", t>}; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-flatten := { t => tuple-fold.<{ x => { xs => x xs } }, "", t> }; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-word := { w => flatten.(tuple-map.orthography.w) }; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+word := {w => flatten.(tuple-map.orthography.w)}; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 wd := concat.<begin, middle, end>; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 middle := syll | concat.<syll, syll> | concat.<syll, syll, syll> | concat.<syll, syll, syll, syll>; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 syll := <cons, vowel>; 
			 |