import qualified Data.ByteString.Lazy as B
import qualified Sound.WaveSurfer     as WS

main :: IO ()
main = do
    s <- WS.interact id `fmap` B.getContents
    case s of
        Right bs -> B.putStr bs
        Left e   -> putStrLn ("Parse failed: " ++ e)