import System.Process
import System.Directory
doCom x = createProcess (proc "sox" [x,("d-"++x),"deemph"])
main = do
    c <- getCurrentDirectory 
    fs <- listDirectory c
    print fs
    mapM_ doCom fs