diff --git a/extra/synth/synth.factor b/extra/synth/synth.factor
index 2b9fd8da0b..c2b80686f0 100755
--- a/extra/synth/synth.factor
+++ b/extra/synth/synth.factor
@@ -4,7 +4,7 @@ USING: accessors kernel locals math math.constants math.functions memoize openal
 IN: synth
 
 MEMO: single-sine-wave ( samples/wave -- seq )
-    pi 2 * over / [ * sin ] curry map ;
+    [ iota ] [ pi 2 * swap / [ * sin ] curry ] bi map ;
 
 : (sine-wave) ( samples/wave n-samples -- seq )
     [ single-sine-wave ] dip <repeating> ;