module Main where
import Control.Monad.Trans.Region
import Sound.EsounD.Player 

main ∷ IO ()
main = runRegionT $
       do pl ← openPlayer 44100 "localhost" Nothing 
          fail "FIXME"