import Data.Int
import qualified Data.StorableVector.Lazy as L
import Prelude.Unicode
-import Sound.EsounD.Player
-import Sound.EsounD.Streams
-import Sound.EsounD.Types
+import Sound.EsounD
main ∷ IO ()
main = runRegionT $
2
⋅ π
⋅ noteFreq
- ⋅ (realToFrac n / realToFrac sampleFreq)
+ ⋅ (realToFrac n ÷ realToFrac sampleFreq)