{-# LANGUAGE
    UnicodeSyntax
  #-}
module Main where
import Control.Monad.Trans.Region
import Data.Int
import Sound.EsounD.Player
import Sound.EsounD.Types

main ∷ IO ()
main = runRegionT $
       do pl ← openPlayer 44100 Nothing Nothing
          playMono16Sine pl

playMono16Sine ∷ Monad m ⇒ Player Int16 Mono m → m ()
playMono16Sine pl
    = fail "FIXME"