|  | @@ -135,6 +135,21 @@ d4 $
 | 
	
		
			
				|  |  |    # gain "0.8"
 | 
	
		
			
				|  |  |    # cut "4"
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +d1 $ stack [
 | 
	
		
			
				|  |  | +  (1 ~>) $ sound "cy/8",
 | 
	
		
			
				|  |  | +  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
 | 
	
		
			
				|  |  | +  every' 12 2 (density 3) $
 | 
	
		
			
				|  |  | +  s "k",
 | 
	
		
			
				|  |  | +  (0.5 ~>) $ s "sn/2"
 | 
	
		
			
				|  |  | +  ]
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  | +d1 $ stack [
 | 
	
		
			
				|  |  | +  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
 | 
	
		
			
				|  |  | +  every' 12 2 (density 3) $
 | 
	
		
			
				|  |  | +  s "k",
 | 
	
		
			
				|  |  | +  (0.5 ~>) $ s "sn/2"
 | 
	
		
			
				|  |  | +  ]
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  mapM_ ($ silence) [d2,d3]
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  d4 $
 | 
	
	
		
			
				|  | @@ -180,6 +195,13 @@ d3 $
 | 
	
		
			
				|  |  |    # speed (slow 2.5 "1 -1")
 | 
	
		
			
				|  |  |    # vowel "e o"
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +-- do more
 | 
	
		
			
				|  |  | +d5 $
 | 
	
		
			
				|  |  | +  density 0.98 $
 | 
	
		
			
				|  |  | +  chop 128 $ s "[gt [~ gt] ! ~]/2"
 | 
	
		
			
				|  |  | +  # gain "0.8"
 | 
	
		
			
				|  |  | +  # cut "4"
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  d4 $
 | 
	
		
			
				|  |  |    (0.18 <~) $
 | 
	
		
			
				|  |  |    (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 | 
	
	
		
			
				|  | @@ -198,16 +220,8 @@ d2 $
 | 
	
		
			
				|  |  |    s "hh hh:2"
 | 
	
		
			
				|  |  |    # gain "0.6"
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | -d5 $
 | 
	
		
			
				|  |  | -  density 0.98 $
 | 
	
		
			
				|  |  | -  chop 128 $ s "[gt [~ gt] ! ~]/2"
 | 
	
		
			
				|  |  | -  # gain "0.8"
 | 
	
		
			
				|  |  | -  # cut "4"
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  |  d4 silence
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | -mapM_ ($ silence) [d2,d5] -- silence
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  |  d3 $
 | 
	
		
			
				|  |  |    within (0.5, 1) (slow (4%3) . brak) $
 | 
	
		
			
				|  |  |    (whenmod 4 2 $ density 3) $
 | 
	
	
		
			
				|  | @@ -217,15 +231,14 @@ d3 $
 | 
	
		
			
				|  |  |    # speed (slow 2.5 "1 -1")
 | 
	
		
			
				|  |  |    # vowel "e o"
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | --- put off this d1 transition to much later, the first drum loop is way funkier
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  |  d1 $ stack [
 | 
	
		
			
				|  |  |    every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
 | 
	
		
			
				|  |  | -  every' 12 2 (density 3) $
 | 
	
		
			
				|  |  |    s "k",
 | 
	
		
			
				|  |  |    (1 ~>) $ s "sn/2"
 | 
	
		
			
				|  |  |    ]
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +mapM_ ($ silence) [d2,d5]
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  d1 $ stack [
 | 
	
		
			
				|  |  |    every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
 | 
	
		
			
				|  |  |    s "[k ~ k*2 ~]/4",
 |