paRead :: Simple -> Producer PAByteString IO ()
paRead = go
               where go s = do
                       bs <- liftIO $ simpleReadRaw s 4410
                       yield $ PAByteString bs
                       go s
paRead :: Simple -> Producer PAByteString IO ()
paRead = go
               where go s = do
                       bs <- liftIO $ simpleReadRaw s 4410
                       yield $ PAByteString bs
                       go s
paRead = go
               where go s = do
                       bs <- liftIO $ simpleReadRaw s 4410
                       yield $ PAByteString bs
                       go s