diff --git a/level.hs b/level.hs
index 17f0d18..6267f19 100644
--- a/level.hs
+++ b/level.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}
 
 -- Создан:  Ср 28 сен 2016 10:18:53
--- Изменен: Ср 05 окт 2016 16:09:45
+-- Изменен: Чт 13 окт 2016 12:36:15
 
 import System.Console.CmdArgs
 import System.Environment
@@ -41,7 +41,8 @@ calcLevel fs samples = case dd of
 		dd = [x | x <- map float2db slices, not (isNaN x), x /= 0]
 		float2db []   = 0
 		float2db list = 20 * logBase 10 (maximum list)
-		slices = splitWhen (== 0) $ take fs samples;
+		slices = chunksOf ms $ take fs samples
+		ms = fs `div` 2
 
 -- Вычисление значения фазы
 calcPhase :: (Ord a, Fractional a) => [[a]] -> a