diff --git a/examples/demo.hs b/examples/demo.hs
new file mode 100644
index 0000000..5aad846
--- /dev/null
+++ b/examples/demo.hs
@@ -0,0 +1,7 @@
+module Main where
+
+import Sound.PortAudio.Base
+
+main :: IO ()
+main = do
+    pa_Initialize >>= print
diff --git a/examples/pa_devs.hs b/examples/pa_devs.hs
deleted file mode 100644
index 7b60174..0000000
--- a/examples/pa_devs.hs
+++ /dev/null
@@ -1,97 +0,0 @@
-module Main where
-
-{- Modeled from pa_devs.c in the PortAudio project. -}
-
-import Sound.PortAudio
-
-main = do
-    r <- withPortAudio paActions
-    return ()
-
-paActions = do
-    let pa_vers = getVersion
-    pa_vers_text <- getVersionText
-
-    putStrLn $ "PortAudio version number = " ++ (show pa_vers)
-    putStrLn $ "PortAudio version text = " ++ pa_vers_text
-
-    num_devs <- getDeviceCount
-    case num_devs of
-         (Right n) -> do putStrLn $ "Number of devices = " ++ (show n)
-                         mapM_ displayDevice [0..(n - 1)]
-         (Left  e) -> do putStrLn $ "ERROR: getDeviceCount returned " ++ (show e)
-
-displayDevice d = do
-    putStrLn $ "--------------------------------------- device #" ++ (show d)
-    (Just di) <- getDeviceInfo d
-    (Just def_input) <- getDefaultInputDevice
-    (Just def_output) <- getDefaultOutputDevice
-    (Just api_info)  <- getHostApiInfo (deviceInfoHostApi di)
-
-    let input_txt = if (d == def_input)
-                       then "Default Input"
-                       else if (d == (hostApiInfoDefaultInputDevice api_info))
-                               then concat ["Default ",(hostApiInfoName api_info)," Input"]
-                               else ""
-
-    let output_txt = if (d == def_output)
-                        then "Default Output"
-                        else if (d == (hostApiInfoDefaultOutputDevice api_info))
-                                then concat ["Default ",(hostApiInfoName api_info)," Output"]
-                                else ""
-
-    let def_txt = concat ["[ ", input_txt, " , ", output_txt, " ]"]
-    if (length def_txt > 7)
-       then putStrLn def_txt
-       else return ()
-    
-    putStrLn $ "Name = " ++ deviceInfoName di
-    putStrLn $ "Host API = " ++ (hostApiInfoName api_info)
-    putStrLn $ concat ["Max Inputs = ", (show $ deviceInfoMaxInputChannels di),
-                       ", Max Outputs = ", (show $ deviceInfoMaxOutputChannels di)]
-    putStrLn $ "Default low input latency = " ++ (show $ deviceInfoDefaultLowInputLatency di)
-    putStrLn $ "Default low output latency = " ++ (show $ deviceInfoDefaultLowOutputLatency di)
-    putStrLn $ "Default high input latency = " ++ (show $ deviceInfoDefaultHighInputLatency di)
-    putStrLn $ "Default high output latency = " ++ (show $ deviceInfoDefaultHighOutputLatency di)
-    putStrLn $ "Default Sample Rate = " ++ (show $ deviceInfoDefaultSampleRate di)
-
-    let id_params = StreamParameters {
-        streamParametersDevice = d,
-        streamParametersChannelCount = deviceInfoMaxInputChannels di,
-        streamParametersSampleFormat = PaInt16,
-        streamParametersSuggestedLatency = 0,
-        streamParametersHostApiSpecificStreamInfo = paNullPtr 
-    }
-    let od_params = StreamParameters {
-        streamParametersDevice = d,
-        streamParametersChannelCount = deviceInfoMaxOutputChannels di,
-        streamParametersSampleFormat = PaInt16,
-        streamParametersSuggestedLatency = 0,
-        streamParametersHostApiSpecificStreamInfo = paNullPtr 
-    }
-
-    if (streamParametersChannelCount id_params > 0)
-       then do putStrLn "Sample Rates -- Half-Duplex 16 bit -- Input"
-               printSupportedStandardSampleRates (Just id_params) Nothing 
-       else return ()
-    
-    if (streamParametersChannelCount od_params > 0)
-       then do putStrLn "Sample Rates -- Half-Duplex 16 bit -- Output"
-               printSupportedStandardSampleRates Nothing (Just od_params) 
-       else return ()
-
-    if (and [streamParametersChannelCount id_params > 0, streamParametersChannelCount od_params > 0])
-       then do putStrLn "Sample Rates -- Half-Duplex 16 bit"
-               printSupportedStandardSampleRates (Just id_params) (Just od_params) 
-       else return ()
-
-printSupportedStandardSampleRates ip op = do
-    mapM_ (checkFmt ip op) standardSampleRates
-    putStrLn ""
-    where checkFmt ip op sr = do
-            r <- isFormatSupported ip op sr
-            case r of
-                 (Right _) -> putStr $ (show sr) ++ " "
-                 (Left _) -> return ()
-
-