paPlay :: Simple -> Consumer PAWavePacket IO ()
paPlay s = for cat (\(PAWavePacket (WavePacket t bs)) -> do
                       curr <- liftIO getCurrentTime
                       liftIO $ print $ "Waiting " ++ (show $ timeDiff t curr)
                       liftIO $ C.threadDelay $ timeDiff t curr
                       liftIO $ simpleWriteRaw s bs
                   )
paPlay :: Simple -> Consumer PAWavePacket IO ()
paPlay s = for cat (\(PAWavePacket (WavePacket t bs)) -> do
                       curr <- liftIO getCurrentTime
                       liftIO $ print $ "Waiting " ++ (show $ timeDiff t curr)
                       liftIO $ C.threadDelay $ timeDiff t curr
                       liftIO $ simpleWriteRaw s bs
                   )
paPlay s = for cat (\(PAWavePacket (WavePacket t bs)) -> do
                       curr <- liftIO getCurrentTime
                       liftIO $ print $ "Waiting " ++ (show $ timeDiff t curr)
                       liftIO $ C.threadDelay $ timeDiff t curr
                       liftIO $ simpleWriteRaw s bs
                   )