{-# OPTIONS -fglasgow-exts #-}
module Main where

import Sound.CoreAudio

main :: IO ()
main = do play $ zip stream stream
    where stream = [ 0.75 * sin (2.0 * pi * 440.0 * x / 44100.0)
                         | x <- [1.0..44100.0] ]