-- Создан:  Ср 28 сен 2016 10:18:53
-- Изменен: Чт 29 сен 2016 09:53:59

import Data.List
import Data.WAVE

n = 48000

chL (l:r) = l
chR (l:r) = r

main = do
	w <- getWAVEFile "000.wav"
	mapM_ print (map chL (take n $ waveSamples w))