From 51890c2a5d186981d46f2963302c81af1a451b02 Mon Sep 17 00:00:00 2001
From: Maxim Lihachev <envrm@yandex.ru>
Date: Thu, 29 Sep 2016 09:54:53 +0500
Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=B5=D0=B0=D0=BB=D0=B8=D0=B7=D0=B0?=
 =?UTF-8?q?=D1=86=D0=B8=D1=8F=20Matlab::audioread=20=D0=BD=D0=B0=20Haskell?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 wave.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 wave.hs

diff --git a/wave.hs b/wave.hs
new file mode 100644
index 0000000..19beb3f
--- /dev/null
+++ b/wave.hs
@@ -0,0 +1,15 @@
+-- Создан:  Ср 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))
+