audio compressor in Haskell